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("PrinterName = " + pd.PrinterSettings.PrinterName)
Console.WriteLine("Is default Printer = " + _
ps.IsDefaultPrinter.ToString())
Console.WriteLine("Is plotter = " + ps.IsPlotter.ToString())
End Sub
End Module
|