水晶报表连接数据库打印
1 Dim Report As New crEnvironment
2
3 Report.SetDatabaseLogon(strUser, strPassword, strServer, strDefaultDatabase)
4 Report.PrintOptions.PaperSize = CrystalDecisions.Shared.PaperSize.PaperA4
5 Report.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, "d: est.pdf")
6 Report.PrintToPrinter(1, True, 0, 0)
can row :允许打印多行数据
