+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب مساعدة بخصوص كود الطباعة (/showthread.php?tid=47163)
طلب مساعدة بخصوص كود الطباعة - paveldida - 29-09-23
السلام عليكم
ممكن المساعدة بخصوص كود الطباعة ، عندي 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
RE: طلب مساعدة بخصوص كود الطباعة - Ahmed5 - 30-09-23
(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
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)
PrintDocument1.DefaultPageSettings.Landscape=True
End Sub
RE: طلب مساعدة بخصوص كود الطباعة - العتيق - 19-01-24
قم بتجربة هذا الكود
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