プリンタポートをOpenステートメントで開く (ID:119222)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 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なんでしょうか。 できるだけ編集せずに済ませたいのですが、何か方法はないものでしょうか。