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
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
End Sub
End Module
|