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)