[shado1796]

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته





جرب هذا التعديل

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() 


السلام عليكم ورحمة الله وبركاته

اخي عند المعاينة توسع شوي ولمن رفعت عدد رقم العرض ضبط المعاينة لكن عند طباعتي لم يفعل اي شئ ,, هل اعدل على الكود التعريفي للطباعة وهو : لاني عدلت الامر فقط

كود :

'  ابتداء اوامر الطباعة للتفصيل
    Public Sub PrintDocument(ByVal obj As Object, ByVal ev As Printing.PrintPageEventArgs)
        Dim Img As New Bitmap(TabPage4.Width, TabPage4.Height)
        TabPage4.DrawToBitmap(Img, New Rectangle(1, 1, TabPage4.Width, TabPage4.Height))
        ev.Graphics.DrawImage(Img, New Point(0, 0))
    End Sub