Ciao.
Ti posto del codice che ho trovato in uno dei miei siti preferiti:

Codice da abbinare alla tua combobox:

codice:
Dim X As Printer
For Each X In Printers
   If X.DeviceName = Combo1.Text Then
      ' Imposta la stampante come predefinita di sistema.
      Set Printer = X
      Exit For
   End If
Next
Io non posso al momento provarlo, fammi sapere se va bene.