水晶报表连接数据库打印
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:\test.pdf") 6 Report.PrintToPrinter(1, True, 0, 0)
can row :允许打印多行数据