[العتيق]

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

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