Public Class Form1
  Dim WithEvents Lb As New ListBox With {.Dock = DockStyle.Fill, .Parent = Me}
 
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
     Using Doc As New Printing.PrintDocument
       With Doc.DefaultPageSettings
            Lb.Items.Add("Druckername    = " & .PrinterSettings.PrinterName)
            Lb.Items.Add("AuflösungX     = " & .PrinterResolution.X.ToString)
            Lb.Items.Add("AuflösungY     = " & .PrinterResolution.Y.ToString)
            Lb.Items.Add("Papiergröße    = " & .PaperSize.PaperName)
            Lb.Items.Add("Querformat     = " & .Landscape)
            Lb.Items.Add("Farbdrucker    = " & .PrinterSettings.SupportsColor)
            Lb.Items.Add("Duplexdrucker  = " & .PrinterSettings.CanDuplex)
            Lb.Items.Add("Plotter        = " & .PrinterSettings.IsPlotter)
        End With
     End Using
  End Sub
End Class