Imports System
Imports System.Drawing.Printing
Module Client
Sub Main()
Dim pd As PrintDocument = New PrintDocument()
Dim pg As PageSettings = pd.DefaultPageSettings
Console.WriteLine("PaperSize = " + pg.PaperSize.PaperName)
Console.WriteLine("PaperSource = " + pg.PaperSource.SourceName)
Console.WriteLine("PrinterResolution = " + _
pg.PrinterResolution.Kind.ToString())
Console.WriteLine("PrinterResolution X = " + _
pg.PrinterResolution.X.ToString())
Console.WriteLine("PrinterResolution Y = " + _
pg.PrinterResolution.Y.ToString())
End Sub
End Module
|