Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim oApp, oRpt
- vFilenameReport = UCase("C:\Customer Folders\Report Location\CrystalReport.rpt")
- vFilenameExport = UCase("C:\Customer Folders\Output Destination\CrystalExport.pdf")
- Set oApp =CreateObject("CrystalRuntime.Application")
- Set oRpt = oApp.OpenReport(vFilenameReport, 1)
- oRpt.DisplayProgressDialog = False
- oRpt.MorePrintEngineErrorMessages = False
- oRpt.EnableParameterPrompting = False
- oRpt.DiscardSavedData
- Set dbproperties = oRpt.Database.Tables.Item(1).ConnectionProperties
- dbproperties("User ID") = "DATABASE_USER"
- dbproperties("Password") = "DATABASE_PASS"
- oRpt.ExportOptions.DiskFileName = vFilenameExport
- oRpt.ExportOptions.FormatType = 31 '31=>PDF
- oRpt.ExportOptions.DestinationType = 1 '1=>filesystem
- oRpt.ExportOptions.PDFExportAllPages = True
- oRpt.Export(False)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement