Sub Main() Dim pd As PrintDocument = New PrintDocument() Dim pg As PageSettings = pd.DefaultPageSettings Dim ps As PrinterSettings = pg.PrinterSettings
Dim p As PaperSize
For Each p In ps.PaperSizes
Console.WriteLine("Supports Paper Size: " + p.PaperName)
Next Dim p1 As PaperSource
For Each p1 In ps.PaperSources
Console.WriteLine("Supports Paper Source: " + p1.SourceName)
Next