Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'' زر امرالطباعة
Dim doc As New Printing.PrintDocument
AddHandler doc.PrintPage, AddressOf PrintDocument
Dim PrinterSettings1 As New Printing.PrinterSettings
PrinterSettings1.DefaultPageSettings.PaperSize = New System.Drawing.Printing.PaperSize("A4", 826.9, 1169.4)
''PrinterSettings1.DefaultPageSettings.PaperSize = New System.Drawing.Printing.PaperSize("Letter", 850, 1100)
'' تحديد الهوامش
PrinterSettings1.DefaultPageSettings.Margins.Left = 50
PrinterSettings1.DefaultPageSettings.Margins.Right = 50
PrinterSettings1.DefaultPageSettings.Margins.Top = 50
PrinterSettings1.DefaultPageSettings.Margins.Bottom = 50
doc.PrinterSettings = PrinterSettings1
doc.DefaultPageSettings.Landscape = True
Dim Print As New PrintPreviewDialog
Print.Document = doc
Print.ShowDialog()
End Sub
