Dim rpt As New RPT_BAOCAO_NHAPKHO_TP
rpt.DataSource = dsReports
rpt.BindData()
DocumentViewer1.PrintingSystem = rpt.PrintingSystem
rpt.CreateDocument()
Using printTool As New ReportPrintTool(rpt)
'or printTool.PrintDialog();
printTool.Print()
End Using