+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] طباعة اكتر من نسخة (/showthread.php?tid=22405)
طباعة اكتر من نسخة - محمد اسماعيل - 04-11-17
السلام عليكم
استخدم كود لطباعة ويطبع بدون اي مشاكل طبيعة الطباعة صفحة واحدة دائما اريد امكانية اضافة اكتر من نسخة لصفحة الواحدة
اطبع 2 نسخ او اي عدد نسخ باداة اضافة الاعداد لتحويل صفحة الطباعة لاكتر من صفحة
استخدمت الكود دة في حدث printdocument باداة اضافة العداد ولم يعمل معي واستخدمتة بحدث PrintDocument1_BeginPrint ولم يعمل معي
PHP كود :
PrintDialog1.AllowSomePages = True
PrintDocument1.PrinterSettings.Copies = nudPages.Value
اسندت الي نفس الحدث الكود التالي ولكن نفس المشكلة
PHP كود :
If PrintDocument1.PrinterSettings.Copies > 1 Then
e.HasMorePages = True
Else
e.HasMorePages = False
End If
RE: طباعة اكتر من نسخة - a.ahmed - 05-11-17
PHP كود :
For i = 1 To nudPages.Value
PrintDocument1.Print()
Next
RE: طباعة اكتر من نسخة - a.ahmed - 05-11-17
PHP كود :
PrintDocument1.PrinterSettings.Copies = nudPages.Value
PrintDocument1.PrinterSettings.FromPage = 2
PrintDocument1.PrinterSettings.ToPage = 3
Using PrintDialog1 As New PrintDialog
PrintDialog1.AllowSomePages = True
PrintDialog1.PrinterSettings = PrintDocument1.PrinterSettings
If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
PrintDocument1.Print()
End If
End Using