01.
Dim
p
As
New
PrintDialog
02.
p.PrinterSettings.PrinterName =
"FX DocuCentre-IV C2263 PCL 6"
03.
p.AllowCurrentPage =
True
04.
cr.Load(
"C:\xProject\Tracking\Tracking\Report\ReportBarcodeBox.rpt"
)
05.
cr.SetDataSource(ds)
06.
cr.PrintOptions.PaperSize = CrystalDecisions.
Shared
.PaperSize.DefaultPaperSize
07.
cr.PrintOptions.PaperSource = CrystalDecisions.
Shared
.PaperSource.
Auto
08.
cr.PrintOptions.PrinterName = p.PrinterSettings.PrinterName
09.
cr.PrintToPrinter(p.PrinterSettings.Copies, p.PrinterSettings.Collate, p.PrinterSettings.FromPage, p.PrinterSettings.ToPage)
10.
Frm_BarcodeBoxReportViewer.CrystalReportViewer1.ReportSource = cr
11.
Frm_BarcodeBoxReportViewer.CrystalReportViewer1.Refresh()
12.
da.Dispose()