السلام عليكم ورحمة الله وبركاته
جرب هذا التعديل
PHP كود :
'' زر امرالطباعة
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)
doc.PrinterSettings = PrinterSettings1
doc.DefaultPageSettings.Landscape = True
Dim Print As New PrintPreviewDialog
Print.Document = doc
Print.ShowDialog()
السلام عليكم ورحمة الله وبركاته
