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
Er lädt mit dem Code nur den ersten Drucker in A1, mehr nicht. Schreibe ich A1:A8, schreibt er den 1. Drucker in jede Zelle. Macht ja auch keinen Sinn, weil die Anzahl der Drucker ja variieren muss.Wer kann helfen? Danke für Eure Hilfe.
Gruß Henner