29-09-23, 08:30 PM
السلام عليكم
ممكن المساعدة بخصوص كود الطباعة ، عندي PANEL و اريد طباعته على شكل Bitmap و احتاج لكود لجعل امر الطباعة مباشرة Paysage
هذا هو كودي المستعمل للطباعة
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim dm As New Bitmap(Me.Panel1.Width, Me.Panel1.Height)
Panel1.DrawToBitmap(dm, New Rectangle(0, 0, Me.Panel1.Width, Me.Panel1.Height))
e.Graphics.DrawImage(dm, 0, 0)
Dim aPS As New PageSetupDialog
aPS.Document = PrintDocument1
End Sub
Dim dm As New Bitmap(Me.Panel1.Width, Me.Panel1.Height)
Panel1.DrawToBitmap(dm, New Rectangle(0, 0, Me.Panel1.Width, Me.Panel1.Height))
e.Graphics.DrawImage(dm, 0, 0)
Dim aPS As New PageSetupDialog
aPS.Document = PrintDocument1
End Sub