+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الطباعة على نصف الورقة A5 (/showthread.php?tid=25728)
الصفحات:
1
2
RE: الطباعة على نصف الورقة A5 - عبد العزيز البسكري - 14-07-18
أخي الكريم " DONE "سأجرّب تغيير قيم الهوامش لعلها تضبط إن شاء الله
RE: الطباعة على نصف الورقة A5 - الحزين اليماني - 29-12-23
بعد ظبط المقاس على الكرستال استخدم هذا الكود في البرنامج
Dim report As New ReportDocument()
report.Load("path_to_your_report_file.rpt")
Dim printerSettings As New System.Drawing.Printing.PrinterSettings()
printerSettings.DefaultPageSettings.PaperSize = New System.Drawing.Printing.PaperSize("A4", 827, 1170)
report.PrintOptions.PrinterName = printerSettings.PrinterName
report.PrintToPrinter(1, False, 0, 0)