Excel VBAでプリンタ一覧を取得する2種類の方法を掲載

Option Explicit

Private Sub MyGetPrinterB()
    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

End Sub

Private Sub MyGetPrinterA()
    Dim win As Object
    Dim Obj_Item As Variant
    Dim lrow As Long
    
    lrow = 6
    Set win = CreateObject("Shell.Application")
    For Each Obj_Item In win.NameSpace(4).Items
        Cells(lrow, 2) = Obj_Item.Name
        lrow = lrow + 1
    Next
End Sub

Private Sub CommandButton1_Click()
    MyGetPrinterA
    MyGetPrinterB

End Sub