Imports System Imports System.Windows.Forms Imports System.Drawing.Printing Dim prtdoc As New PrintDocument() Dim strDefaultPrinter As String = prtdoc.PrinterSettings.PrinterName Dim strPrinter As [String] For Each strPrinter In PrinterSettings.InstalledPrinters ComboBox1.Items.Add(strPrinter) If strPrinter = strDefaultPrinter Then ComboBox1.SelectedIndex = ComboBox1.Items.IndexOf(strPrinter) End If Next strPrinter |