Excel VBA プリンターを切り替えて印刷する-ActivePrinter

Excelで印刷するときに通常使うプリンターとは別のプリンターで印刷したい場合の記録です。

下図は、Windows10、Excel2016です。

Excelプリンター

 

< スポンサーリンク >

 

構文

式.ActivePrinter

使用しているプリンターの名前を返すまたは設定。

式=Applicationオブジェクト。

設定する場合、ポート名の後ろにコロン「:」を指定する必要があります。

 

一旦、印刷したい通常使うプリンターと別のプリンターを通常使うプリンターに設定します。

Excelプリンター

Excelプリンター

 

VBAで下図のようにプリンター名とポートを確認します。(デバッグでも可)

Sub test()
    MsgBox Application.ActivePrinter
End Sub

Excelプリンター

Excelプリンター

 

通常使うプリンターを元に戻します。

Excelプリンター

 

VBAで確認したプリンターを「ActivePrinter」に設定し、印刷するとそのプリンターに印刷されます。

Sub test()
    Application.ActivePrinter = "Microsoft Print to PDF on Ne02:"
    ActiveSheet.PrintOut
End Sub

Excelプリンター

Excelプリンター

 

< スポンサーリンク >



サブコンテンツ

このページの先頭へ