Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim oApp, oRpt
- vFilenameReport = UCase("C:\Customer Folders\Folder\Report.rpt")
- vFilenameExport = UCase("C:\Customer Folders\Folder\Report.txt")
- 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") = "XXXX"
- dbproperties("Password") = "XXXX"
- oRpt.ExportOptions.DiskFileName = vFilenameExport
- oRpt.ExportOptions.FormatType = 9 '9=>Text Delimited
- oRpt.ExportOptions.DestinationType = 1 '1=>filesystem
- oRpt.Export(False)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement