ขออนุญาติสอบถามเรื่อง crystal report กับการปริ้น ใน vb.net หน่อยครับ

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