Imports System.IO
Imports System.Windows.Forms
public class PageSetupDialogSettings
public Shared Sub Main
Dim PageDB As New PageSetupDialog()
PageDB.Document = New System.Drawing.Printing.PrintDocument()
If (PageDB.ShowDialog() = DialogResult.OK) Then
Console.WriteLine("Allow Margins: " & PageDB.AllowMargins)
Console.WriteLine("Allow Orientation: " & PageDB.AllowOrientation)
Console.WriteLine("Allow Paper: " & PageDB.AllowPaper)
Console.WriteLine("Allow Printer: " & PageDB.AllowPrinter)
Console.WriteLine("Minimum Margins: " & PageDB.MinMargins.ToString())
Console.WriteLine("Show Network: " & PageDB.ShowNetwork)
Console.WriteLine("Printer Settings: " & PageDB.PrinterSettings.ToString())
End If
End Sub
End class
|