[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

[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

[العتيق]

قم بتجربة هذا الكود

PHP كود :

Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    ' إنشاء صورة من محتويات اللوحة
    Dim panelImage As New Bitmap(Panel1.Width, Panel1.Height)
    Panel1.DrawToBitmap(panelImage, New Rectangle(0, 0, Panel1.Width, Panel1.Height))

    ' رسم الصورة على الورقة
    e.Graphics.DrawImage(panelImage, 0, 0)

    ' يمكنك إضافة أكواد إضافية لطباعة مزيد من المحتوى إذا كان ذلك ضروريًا

    ' مستخدم PageSetupDialog لتخصيص إعدادات الطباعة
    Dim pageSetupDialog As New PageSetupDialog()
    pageSetupDialog.Document = PrintDocument1

    ' افتح نافذة Page Setup للمستخدم
    If pageSetupDialog.ShowDialog() = DialogResult.OK Then
        ' تحديث إعدادات الطباعة بناءً على اختيارات المستخدم
        PrintDocument1.DefaultPageSettings = pageSetupDialog.PageSettings
    End If
End Sub