Fehler beim Auslesen der Drucker
24.03.2013 12:46:34
Henner
ich habe vor einiger Zeit ein kleines Tool geschrieben, welches nun auch monatelang einwandfrei lief. Auf meinem PC läuft es auch weiterhin ohne zu murren, bei meinem Dad allerdings kommt der folgende Fehler wenn die Windows Drucker ausgelesen werden:
Laufzeitfehler -2147217402 (80041006) Automatisierungsfehler
Option Explicit
Sub Druckerladen()
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
End Sub
Ich wäre froh wenn jemand einen Tip für mich hätte.
Besten Dank im Voraus.
Greets