كود :
''معاينة قبل الطباعة
' Frm_Print.Show()
' Frm_Print.WindowState = FormWindowState.Maximized
' Dim rpt As New Quick_Report
' rpt.SetDataSource(ds)
' Frm_Print.CrystalReportViewer1.ReportSource = rpt
' Frm_Print.CrystalReportViewer1.Refresh()
' con.Close()
''انهاء معاينة قبل الطباعة
''الطباعة مباشر
Dim rpt As New Quick_Report
rpt.SetDataSource(ds)
Frm_Print.CrystalReportViewer1.ReportSource = rpt
Dim printDocument As New System.Drawing.Printing.PrintDocument()
rpt.PrintOptions.PrinterName = My.Settings.PrinterName
rpt.PrintToPrinter(1, False, 0, 0)
con.Close()
''انهاء الطباعة مباشرة