With PrintDocument1.PrinterSettings
 
       Dim c As Integer = .PaperSizes.Count
       If c > 0 Then
 
          'allgemein
          Dim ps As System.Drawing.Printing.PaperSize = .PaperSizes(0)
 
          'aktuell:
          ps = .DefaultPageSettings.PaperSize
 
          Dim width_zoll As Double = ps.Width / 100
       End If
 
   End With