Mega Code Archive

 

Categories / VB.Net / GUI

 

Page setting

Imports System Imports System.Drawing.Printing Module Client     Sub Main()         Dim pd As PrintDocument = New PrintDocument()         Dim pg As PageSettings = pd.DefaultPageSettings                   Console.WriteLine("Top Margin = " + pg.Margins.Top.ToString())         Console.WriteLine("Bottom Margin = " + pg.Margins.Bottom.ToString())         Console.WriteLine("Left Margin = " + pg.Margins.Left.ToString())         Console.WriteLine("Right Margin = " + pg.Margins.Right.ToString())         Console.WriteLine("Landscape = " + pg.Landscape.ToString())         Console.WriteLine("PaperSize = " + pg.PaperSize.PaperName)         Console.WriteLine("PaperSource = " + pg.PaperSource.SourceName)          End Sub End Module