Combobox mit Druckern 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