Systemdrucker in Tabelle laden

Hallo zusammen,
mit folgendem Code lasse ich mir die im System eingerichteten Drucker in eine Tabelle laden:


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

Das funktioniert soweit auch prima. Handelt es sich allerdings um einen Netzwerkdrucker mit einem etwas längeren Pfad, wird nicht der gesamte Pfad in die Zelle geschrieben.
Im System eingerichtet ist der Drucker so:


HP Deskjet 6940 series (Kopie1) auf MODEM-PC

In die Zelle wird geschrieben:


\\MODEM-PC\HP Deskjet 6940 ser

Da die Einträge in den Zellen später u.a. auch zur Druckerauswahl genutzt werden, muss der Pfad komplett eingetragen werden da mit der Drucker später unter dem Pfad auch gefunden werden kann - das ist jetzt nicht der Fall.
Wie liesse sich diese Herausforderung wohl geschickt lösen?
Danke für Eure Hilfe und viele Grüsse
Henner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub GetPrinters() Dim objWMI As Object, colPrinters As Object, objPrinter As Object, LoZaehler As Long Dim strPrinter As String 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 ' Debug.Print "Path_.keys(""Name""): " & objPrinter.Path_.keys("Name") Sheets("Drucker").Cells(LoZaehler + 1, 2) = objPrinter.Path_.keys("Name") ' Debug.Print "Path_.RelPath: " & objPrinter.Path_.RelPath strPrinter = objPrinter.Path_.RelPath strPrinter = Mid(strPrinter, InStr(1, strPrinter, "=") + 2) strPrinter = Left(strPrinter, Len(strPrinter) - 1) Sheets("Drucker").Cells(LoZaehler + 1, 3) = strPrinter ' Debug.Print "Properties_(""Description""): " & objPrinter.Properties_("Description" _ ) Sheets("Drucker").Cells(LoZaehler + 1, 4) = objPrinter.Properties_("Description") LoZaehler = LoZaehler + 1 Next End Sub

Sub GetPrinters() Cells.ClearContents Dim objWMI As Object, colPrinters As Object, objPrinter As Object, LoZaehler As Long Dim strPrinter As String 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 ' Debug.Print "Path_.keys(""Name""): " & objPrinter.Path_.keys("Name") Sheets("Drucker").Cells(LoZaehler + 1, 1) = objPrinter.Path_.keys("Name") ' Debug.Print "Path_.RelPath: " & objPrinter.Path_.RelPath strPrinter = objPrinter.Path_.RelPath strPrinter = Mid(strPrinter, InStr(1, strPrinter, "=") + 2) strPrinter = Left(strPrinter, Len(strPrinter) - 1) Sheets("Drucker").Cells(LoZaehler + 1, 1) = strPrinter ' Debug.Print "Properties_(""Description""): " & objPrinter.Properties_("Description" _ _ ) Sheets("Drucker").Cells(LoZaehler + 1, 1) = objPrinter.Properties_("Description") LoZaehler = LoZaehler + 1 Next End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread