Private WithEvents comboInstalledPrinters As New ComboBox
Private WithEvents printDoc As New PrintDocument

Private Sub PopulateInstalledPrintersCombo()
    comboInstalledPrinters.Dock = DockStyle.Top
    Controls.Add(comboInstalledPrinters)

    ' Add list of installed printers found to the combo box.
    ' The pkInstalledPrinters string will be used to provide the display string.
    Dim i As Integer
    Dim pkInstalledPrinters As String

    For i = 0 To PrinterSettings.InstalledPrinters.Count - 1
        pkInstalledPrinters = PrinterSettings.InstalledPrinters.Item(i)
        comboInstalledPrinters.Items.Add(pkInstalledPrinters)
        If (printDoc.PrinterSettings.IsDefaultPrinter()) Then
            comboInstalledPrinters.Text = printDoc.PrinterSettings.PrinterName
        End If
    Next
End Sub

' 导入命名空间
Imports System
Imports System.Drawing.Printing

Module Client

    Sub Main()
        Dim pd As PrintDocument = New PrintDocument()
        Dim pg As PageSettings = pd.DefaultPageSettings
        Dim ps As PrinterSettings = pg.PrinterSettings
    
        Console.WriteLine("PrinterName = " + pd.PrinterSettings.PrinterName)
        Console.WriteLine("Is default Printer = " + _
                             ps.IsDefaultPrinter.ToString())
        Console.WriteLine("Is plotter = " + ps.IsPlotter.ToString())

    End Sub

End Module