Microsoft Excel VBA - プリンタを一時的に切り替える方法
◆概要
このページは、Excel VBAで プリンタを一時的に切り替える方法について記載しています。
マクロの中でプリンタを一時的に切り替えるにはActivePrinte プロパティ を使います。ActivePrinter プロパティは、現在使用しているプリンタの名前を設定します。文字列型 (String) の値を使用します。
Sub ChangePrinter() Dim myPrinter As String '現在のプリンタを記憶 myPrinter = Application.ActivePrinter MsgBox "現在使用しているプリンタ名" & _ myPrinter 'プリンタを切り替える Application.ActivePrinter = _ "hp deskjet 5550 series on Ne01:" MsgBox "一時的に切り替えたプリンタ名" & _ Application.ActivePrinter 'プリンタを元に戻す Application.ActivePrinter = myPrinter End Sub |
なお、プリンター名は正確に記述する必要があります。次のマクロは、現在使用中のプリンター名をセルA1に書き込みます。
Sub GetActivePrinter() Dim MyPrinter As String '現在のプリンタを記憶 MyPrinter = Application.ActivePrinter '現在のプリンタ名をセルA1に書き込む Range("A1").Value = MyPrinter End Sub |
▼ページトップへ