プリンタポートをOpenステートメントで開く

なかの 2005-01-27 18:43:50 No: 119222

VB5でWindows98+ローカルプリンタでの印刷用に作られた、
下のようなコードがあります。
----------------------------------------
Dim p As Object
For Each p In Printers
    If p.Port = "LPT1:" Then
        Set Printer = p
        Exit For
    End If
Next p
prnNum = FreeFile
Open p.Port For Output As prnNum
----------------------------------------

これを、VB6.0SP5でWindows2000・XP+ネットワークプリンタ用に、
焼き増しすることになったのですが、3行目を下記のように変更すると、

If p.Port = "Ne03:" Then

最後のOpenステートメントで「ファイル名または番号が不正です」という
エラーが出てしまいます。
この環境では、上のようなコードはNGなんでしょうか。
できるだけ編集せずに済ませたいのですが、何か方法はないものでしょうか。