Imports System
Imports System.Drawing.Printing
Module Client
Sub Main()
Dim pd As PrintDocument = New PrintDocument()
Dim pg As PageSettings = pd.DefaultPageSettings
Console.WriteLine("Is Color = " + pg.Color.ToString())
Console.WriteLine("Top Bound = " + pg.Bounds.Top.ToString())
Console.WriteLine("Bottom Bound = " + pg.Bounds.Bottom.ToString())
Console.WriteLine("Left Bound = " + pg.Bounds.Left.ToString())
Console.WriteLine("Right Bound = " + pg.Bounds.Right.ToString())
End Sub
End Module
|