水晶报表

水晶报表连接数据库打印 

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 :允许打印多行数据

 

posted @ 2015-08-06 15:30  快乐的小太阳  阅读(107)  评论(0)  编辑  收藏  举报