gestern bekam ich hier im Forum von Selli folgenden Code, um eine Combobox in einer UserForm mit allen vorhandenen Druckern zu füllen:
Sub test4() 'Druckerauflistung
a = 1
Dim objWMI As Object, objItem As Object
Set objWMI = GetObject("winmgmts:\\.\root\cimv2"). _
ExecQuery("Select * from Win32_Printer")
For Each objItem In objWMI
Debug.Print objItem.Name
Cells(a, 1) = objItem.Name
a = a + 1
Next
Set objWMI = Nothing
End Sub
Dies funktioniert auch. Allerdings wäre es gut, wenn das als Standarddrucker definierte Gerät in der Combobox schon oben im Fenster stehen würde und markiert wäre.
Und wie bekomme ich bei einer neuen Auswahl das Programm dazu, dass es dann auf diesen Drucker ausdruckt?
m.f.g.
Harald