For i = 0 To Printers.Count - 1 Impresora.AddItem Printers(i).DeviceName, i Next Impresora.Text = Printer.DeviceName