Drucker auslesen mit Fehlern
12.10.2013 14:15:40
Henner
mit folgendem Code lese ich beim Start die Drucker aus dem System aus und lasse sie mir in die Tabelle "Drucker" Bereich A1-A.. schreiben. Der User hat später die Möglichkeit den gewünschten Drucker per ComboBox auszuwählen.
Dim objWMI As Object, colPrinters As Object, objPrinter As Object, LoZaehler As Long
Set objWMI = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
Set colPrinters = objWMI.ExecQuery _
("Select * from Win32_PrinterConfiguration")
For Each objPrinter In colPrinters
Sheets("Drucker").Cells(LoZaehler + 1, 1) = objPrinter.devicename
LoZaehler = LoZaehler + 1
Next
Wie liesse sich dieses Problem beheben? Fragen beantworte ich gerne
Danke & Gruss