首先你要把CrystalReportViewer控件拖到窗体上,
Dim ls_dir As New System.Text.StringBuilder(256)
Dim strFileName As String = "CrystalReport1.rpt"
报表的位置(你做好的报表的地址)
ls_dir.Append(Application.StartupPath & "\" & strFileName)
CrystalReportViewer().ReportSource = ls_dir.ToString
打印
CrystalReportViewer().PrintReport()