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



▼ページトップへ