cargar impresoras de windows en combo

[guillebomtrasmiti]

tienes razón copie el trozo de código equivocado era este..holaaaa amigooo

Public Sub seleccionaimpresora()
Dim pd As New PrintDocument
Dim Impresoras As String

' Default printer
Dim s_Default_Printer As String = pd.PrinterSettings.PrinterName

' recorre las impresoras instaladas
For Each Impresoras In PrinterSettings.InstalledPrinters
ComboImprGes.Items.Add(Impresoras.ToString)
ComboImpWin.Items.Add(Impresoras.ToString)
Next
' selecciona la impresora predeterminada
LbPredeterminada.Text = s_Default_Printer
End Sub