0

複数のプリンタの設定について プリンタが２台あります。普段はレーザープリンタを使用しているのですが、エクセルのマクロで葉書を印刷する際には、別のインクジェットプリンタを使用しています。
今の状況だと、はがきを印刷した後はプリンタの設定をレーザープリンタに接続設定をいちいち直さなくてはなりません。その面倒を解消したくて、エクセルのマクロではがきを印刷する際に、常にマクロで →インクジェット印刷指定 →印刷終了後、レーザープリンタへの設定 → 終了 というマクロを組みたいです。 どなたか教えてください。
なお、現在の私のパソコンのマクロ設定は以下の通りです。あと、レーザープリンタの名前、ポートは『Application.ActivePrinter = "Canon LASER SHOT LBP-1210 (コピー 3) on Ne03:"』 です。

Sub 配達証明印刷()
'
' 証明印刷 Macro
' マクロ記録日 : 2009/4/20 ユーザー名 : 川崎
'

'
Application.ActivePrinter = "Canon PIXUS 6500i on LPT1:"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, _
ActivePrinter:="Canon PIXUS 6500i on LPT1:", Collate:=True

Sheets("証明").Select
End Sub

質問者が選んだベストソリューション

Yahoo!知恵袋