Ich habe unteren Code der mir alle instalierten Drucker in Spalte A auflistet.
Nur wird leider nicht die exakte Einstellung angezeigt. Die konfiguration auf NEO1 oder NEO2 usw..fehlt.
Könnte man diese auch noch aufgelistet bekommen?
Gruß
Heinz
Sub Drucker_auflisten() 'Druckerauflistung
a = 1
Dim objWMI As Object, objItem As Object
Set objWMI = GetObject("winmgmts:\\.\root\cimv2"). _
ExecQuery("Select * from Win32_Printer")
For Each objItem In objWMI
Debug.Print objItem.Name
Cells(a, 1) = objItem.Name
a = a + 1
Next
Set objWMI = Nothing
End Sub
https://www.herber.de/bbs/user/79614.xls