4,816
社区成员
发帖
与我相关
我的任务
分享
Dim myReport1 As New ReportDocument
Dim reportPath1 As String = Application.StartupPath & "\" & "crystalreport1.rpt"
myReport1.Load(reportPat1h)
CrystalReportViewer1.ReportSource = myReport1
Dim myReport2 As New ReportDocument
Dim reportPath2 As String = Application.StartupPath & "\" & "crystalreport2.rpt"
myReport2.Load(reportPath)
myReport.PrintToPrinter(1, False, 0, 0)