Show PageSetupDialog and display the settings : PageSetupDialog « GUI « VB.Net Tutorial

1. VB.Net Tutorial
2. GUI
3. PageSetupDialog

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