２台のプリンターでそれぞれ異なる様式の帳票を印刷したい。

２つのプリンターを指定したコードを設定していますが、振替伝票①を実行すると「通常使用するプリンター」で印刷され、指定したプリンターで実行されません。また、２つ以外の他のプリンターに接続し実行すると、このプリンターで印刷されます。設定しているコードは次のとおりです。なお、通常使用するプリンターは「RICOH MP C3004 JPN PRCS」にしています。どこが間違っているのか教えて下さい。

Sub 印刷()
Dim Sh2 As Worksheet
Set Sh2 = Worksheets("売上伝票兼領収書")
Dim orgPrinter As String
orgPrinter = Application.ActivePrinter
Call Sh2.PrintOut(ActivePrinter:="RICOH MP C3004 JPN PRCS")
Application.ActivePrinter = orgPrinter
End Sub
ーーーーーーーーーーーーーーーー
Sub Macro1振替伝票印刷()
Dim sh9 As Worksheet
Set sh9 = Worksheets("振替伝票①")
Dim orgPrinter As String
orgPrinter = Application.ActivePrinter
Call sh9.PrintOut(ActivePrinter:="EPSON PX-K150 Series")
Application.ActivePrinter = orgPrinter
End Sub
ーーーーーーーーーーーーーーー

質問者からの補足コメント

• 

  それぞれのSheet上に印刷ボタンを設定しで印刷するようにしたいのですが、Sub 印刷()の方は通常どおり印刷しますが、Sub Macro1振替伝票印刷()の方はRICOH MP C3004 JPN PRCSが作動し、EPSON PX-K150 Seriesが作動しません。それぞれのシート上の印刷ボタンで作動させたい。

    補足日時：2022/09/06 16:00

• 

  自己解決することができません。専門家の方のご教授をお願いします。

    補足日時：2022/09/07 08:03

No.2 回答者： goold-man 回答日時： 2022/09/06 14:48

Aを通常使用するプリンターに指定し「印刷」後、Bを通常使用するプリンターに指定し「印刷」しています。

この回答へのお礼

有難うございます。その都度印刷設定せずに、それぞれのSheetから印刷ボタンで印刷するようにしたいです。

お礼日時：2022/09/06 15:12

No.1 回答者： banbanzai55 回答日時： 2022/09/06 12:49

ドライバー側で設定

「プリント」→表示にプリンターの機種を指定するところがある
希望の機種を選択→印刷

この回答へのお礼

有難うございます。それぞれのSheetから印刷ボタンで印刷するようにしたいです。

お礼日時：2022/09/06 15:11