Standartdrucker ändern
08.12.2017 09:27:01
Torben
irgendwie macht mir gerade die Druckerwahl etwas Probleme.
Ich habe mehrere Drucker im Netzwerk und möchte nun mithilfe einer ComboBox den Standartdrucker ändern.
Mein Code:
Private Sub CommandButton1_Click()
Application.ActivePrinter = ComboBox1.Text
End Sub
Private Sub UserForm_Activate()
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
ComboBox1.AddItem objPrinter.devicename
Next
ComboBox1.ListIndex = 0
End Sub
Bekomme die Fehlermeldung: Die Methode 'ActivePrinter' ist fehlgeschlagen.
Vielleicht stelle ich mir die Sache auch zu einfach vor.
Wäre nett wenn jemand mal drüberschauen könnte.
Danke schonmal
Grüße Torben