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
Das funktioniert soweit auch einwandfrei. Wenn der User jetzt allerdings einen Netzwerkdrucker auswählt, wird nicht der vollständige Name des Druckers in die Zelle geschrieben (Ich vermute zu viele Zeichen?).Wie liesse sich dieses Problem beheben? Fragen beantworte ich gerne
Danke & Gruss