マクロでネットワーク経由の印刷をしたいのですが

質問

Excel2002を使用しています。２人の人間が各々のＰＣから
指定のプリンター（通常使うプリンターではない）で
印刷出来るようにしたいのですが、うまくいきません。
プリンターが接続されている「山田太郎」は印刷出来るのですが、
ネットワークを介している「田中花子」は、通常使うプリンターから
出力されてしまいます。
何が原因なのか、ご教授願います。

Sub 印刷確認()

タイトル = "印刷確認"
メッセージ = "今日の日付で印刷してよろしいですか？"
スタイル = vbYesNo + vbQuestion + vbDefaultButton1 + vbApplicationModal
yesno = MsgBox(メッセージ, スタイル, タイトル)

If yesno = vbYes Then

ユーザー名 = Application.UserName

Select Case ユーザー名

Case "山田太郎"

プリンター = "EPSON PM-840C on Ne03:"

Case "田中花子"

プリンター = "\\yamada\EPSON PM-840C on Ne0:5"

End Select

　　Application.ActivePrinter = プリンター
　　ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
　　プリンター, Collate:=True

ThisWorkbook.Worksheets("住所録").Select
Range("A3:A10000").ClearContents

End If
　　　Range("G14,I14").ClearContents
Exit Sub
End Sub

回答No.1

Wendy02 · ベストアンサー

こんにちは。

原因は、

on Ne03:"
on Ne0:5"

このボート番号が、違うか変わるかどちらかだと思います。
この部分が決まらないようだったら、
On Error Resume Next で、適当にループの中で、数字をインクリメントさせればよいです。

お礼

念の為ポート番号を調べ直してみたら、
以前調べた時と変わっていました。
（別のプリンタドライバを削除した為だと思います）。
単純ミスで申し訳ありません。助かりました。
回答、ありがとうございました。