[الحزين اليماني]

بعد ظبط المقاس على الكرستال استخدم هذا الكود في البرنامج
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)