Dim Report As New crProgressList
Report.PrintOptions.PaperSize = CrystalDecisions.Shared.PaperSize.PaperA4
Report.SetDatabaseLogon(strUser, strPassword, strServer, strDatabase) Report.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, plPDFDirectory & plPDFFileName)
原文：http://www.cnblogs.com/jiningning/p/4735903.html