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

PageSettings.Bounds

  
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

PageSettings.Kind

  
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

PageSettings.PaperSize

  
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

PageSettings.PaperSource

  
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

PageSettings.PrinterResolution

  
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