VB.Net by API/System.Drawing.Printing/PageSettings

PageSettings.Bounds

<source lang="vbnet"> 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

 </source>

PageSettings.Kind

<source lang="vbnet"> Imports System Imports System.Drawing.Printing Module Client

   Sub Main()
       Dim pd As PrintDocument = New PrintDocument()
       Dim pg As PageSettings = pd.DefaultPageSettings
   
   
       Console.WriteLine("PaperSize = " + pg.PaperSize.PaperName)
       Console.WriteLine("PaperSource = " + pg.PaperSource.SourceName)
       Console.WriteLine("PrinterResolution = " + _
                         pg.PrinterResolution.Kind.ToString())
       Console.WriteLine("PrinterResolution X = " + _
                         pg.PrinterResolution.X.ToString())
       Console.WriteLine("PrinterResolution Y = " + _
                         pg.PrinterResolution.Y.ToString())
   
   End Sub

End Module

 </source>

PageSettings.PaperSize

<source lang="vbnet"> Imports System Imports System.Drawing.Printing Module Client

   Sub Main()
       Dim pd As PrintDocument = New PrintDocument()
       Dim pg As PageSettings = pd.DefaultPageSettings
   
   
       Console.WriteLine("PaperSize = " + pg.PaperSize.PaperName)
       Console.WriteLine("PaperSource = " + pg.PaperSource.SourceName)
       Console.WriteLine("PrinterResolution = " + _
                         pg.PrinterResolution.Kind.ToString())
       Console.WriteLine("PrinterResolution X = " + _
                         pg.PrinterResolution.X.ToString())
       Console.WriteLine("PrinterResolution Y = " + _
                         pg.PrinterResolution.Y.ToString())
   
   End Sub

End Module

 </source>

PageSettings.PaperSource

<source lang="vbnet"> Imports System Imports System.Drawing.Printing Module Client

   Sub Main()
       Dim pd As PrintDocument = New PrintDocument()
       Dim pg As PageSettings = pd.DefaultPageSettings
   
   
       Console.WriteLine("PaperSize = " + pg.PaperSize.PaperName)
       Console.WriteLine("PaperSource = " + pg.PaperSource.SourceName)
       Console.WriteLine("PrinterResolution = " + _
                         pg.PrinterResolution.Kind.ToString())
       Console.WriteLine("PrinterResolution X = " + _
                         pg.PrinterResolution.X.ToString())
       Console.WriteLine("PrinterResolution Y = " + _
                         pg.PrinterResolution.Y.ToString())
   
   End Sub

End Module

 </source>

PageSettings.PrinterResolution

<source lang="vbnet"> Imports System Imports System.Drawing.Printing Module Client

   Sub Main()
       Dim pd As PrintDocument = New PrintDocument()
       Dim pg As PageSettings = pd.DefaultPageSettings
   
   
       Console.WriteLine("PaperSize = " + pg.PaperSize.PaperName)
       Console.WriteLine("PaperSource = " + pg.PaperSource.SourceName)
       Console.WriteLine("PrinterResolution = " + _
                         pg.PrinterResolution.Kind.ToString())
       Console.WriteLine("PrinterResolution X = " + _
                         pg.PrinterResolution.X.ToString())
       Console.WriteLine("PrinterResolution Y = " + _
                         pg.PrinterResolution.Y.ToString())
   
   End Sub

End Module

 </source>