Vorhandene Drucker in Tabelle laden
Henner
nach langer Abwesenheit habe ich nun mal wieder ein Anliegen. Ich möchte alle Drucker die auf dem PC installiert sind, in ein Tabellenblatt laden. Nun habe ich den Code umgebaut, den ich benutze um die Drucker in eine ListBox zu laden und dachte, ich könne das recht einfach umbauen - geht aber nicht so wie ich dachte.
Nun möchte ich also alle im System angelegten Drucker untereinander in ein Tabellenblatt laden, also den 1. Drucker in A1, den 2. Drucker in A2 usw..
Zur Zeit versuche ich es erfolglos mit diesem Code:
Sub Druckerladen()
Dim objWMI As Object, colPrinters As Object, objPrinter As Object
Set objWMI = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
Set colPrinters = objWMI.ExecQuery _
("Select * from Win32_PrinterConfiguration")
For Each objPrinter In colPrinters
Sheets("Datenexport").Range("A1") = objPrinter.devicename
Next
Cancel = True
End Sub
Wer kann helfen? Danke für Eure Hilfe.
Gruß Henner
Anzeige