Impresoras

[GeoAvila]

solo tenes que colocar en u Combo con el nombre de "Impresora", luego en el form_load

colocas esto

Código:

Private Sub Form_Load()
Dim I As Integer
For I = 0 To Printers.Count - 1
    Impresora.AddItem Printers(I).DeviceName, I
Next
Impresora.Text = Printer.DeviceName
End Sub

y ya si funciona..

nos vemos..