Excel VBAで使用するプリンターを切り替える｜ActivePrinter

■ VBA入力画面

■ VBAコード

Option Explicit

Private Function MyGetPrinterB() As Long
    Dim lrow As Long
    Dim tobj As Object
    Dim tInstPrn As Variant
    Dim tprn As Object
    
    lrow = 6
    Set tobj = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set tInstPrn = tobj.ExecQuery("Select * from Win32_Printer")
    For Each tprn In tInstPrn
        Cells(lrow, 3) = tprn.Name
        Cells(lrow, 4) = tprn.Location
        Cells(lrow, 5) = tprn.Default
        lrow = lrow + 1
    Next
    MyGetPrinterB = lrow
End Function

Private Sub MySetPrinterA(sPrn As String)
    ActiveSheet.PrintOut ActivePrinter:=sPrn
End Sub

Private Sub MySetPrinterB(sPrn As String)
    Dim sPush As String
    
    sPush = Application.ActivePrinter
    ActiveSheet.PrintOut ActivePrinter:=sPrn
    Application.ActivePrinter = sPush
End Sub

Private Sub CommandButton1_Click()
    Dim i As Long
    Dim lMaxRow As Long
    
    lMaxRow = MyGetPrinterB
    
    For i = 6 To lMaxRow
        If Cells(i, 2) <> "" Then
            MySetPrinterA Cells(i, 3)
            Exit For
        End If
    Next
    MyGetPrinterB
End Sub

Private Sub CommandButton2_Click()
    Dim i As Long
    Dim lMaxRow As Long
    
    lMaxRow = MyGetPrinterB
    
    For i = 6 To lMaxRow
        If Cells(i, 2) <> "" Then
            MySetPrinterB Cells(i, 3)
            Exit For
        End If
    Next
    MyGetPrinterB
End Sub