
Excelで印刷するときに通常使うプリンターとは別のプリンターで印刷したい場合があります。
VBAを使って別のプリンターに印刷するようにしてみます。
下図は、Windows10、Excel2016です。
< スポンサーリンク >
構文
式.ActivePrinter
使用しているプリンターの名前を返すまたは設定。
式=Applicationオブジェクト。
設定する場合、ポート名の後ろにコロン「:」を指定する必要があります。
例
一旦、印刷したい通常使うプリンターと別のプリンターを通常使うプリンターに設定します。
VBAで下図のようにプリンター名とポートを確認します。(デバッグでも可)
Sub test()
MsgBox Application.ActivePrinter
End Sub
通常使うプリンターを元に戻します。
VBAで確認したプリンターを「ActivePrinter」に設定し、VBAを実行するとそのプリンターに印刷されます。
Sub test()
Application.ActivePrinter = “Microsoft Print to PDF on Ne02:”
ActiveSheet.PrintOut
End Sub
こんな記事も書いています