Excel VBAで通常使うプリンターとは別のプリンターで印刷する-ActivePrinter

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

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします