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
Console.WriteLine("Is printer valid = " + ps.IsValid.ToString())
Console.WriteLine("Can Duplex = " + ps.IsValid.ToString())
Console.WriteLine("Num copies = " + ps.Copies.ToString())
Console.WriteLine("Max Copies = " + ps.MaximumCopies.ToString())
Console.WriteLine("Max Page = " + ps.MaximumPage.ToString())
Console.WriteLine("Min Page = " + ps.MinimumPage.ToString())
Console.WriteLine("Supports Color = " + ps.SupportsColor.ToString())
End Sub
End Module