[Ahmed5]

(29-09-23, 08:30 PM)paveldida كتب :

السلام عليكم

ممكن المساعدة بخصوص كود الطباعة ، عندي 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

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'
        PrintDocument1.DefaultPageSettings.Landscape=True

    End Sub