Exporting a Crystal Report to a TXT file.

[rshawtx]

Is there anyway to export a crystal report viewed through eportfolio into a text file? I have seen articles alluding to the fact that it can be done but none that show how to do it. The only formats that I see are PDF, DOC, RTF, and RPT. Thanks.

 

[synapsevampire]

I wasn't aware that you could do this, perhaps if you have the FormatType and the .DLL installed it will work.

I found the following post here on Tek-Tips.

' Get the RPT file
Set ceInfoObjects = ceInfoStore.Query("Select SI_NAME, SI_UISTATUS, SI_FILES From CI_INFOOBJECTS Where SI_ID=" & Cstr(lInstanceID))

sFileSpec = "c:\temp\myReport.rpt"
ceInfoObjects.Item(1).Files.Item(1).CopyTo sFileSpec

' Export the RPT file to PDF
Set crApplication = CreateObject("CrystalRunTime.Application&quot
Set crReport = crApplication.OpenReport(sFileSpec)
crReport.DisplayProgressDialog = False
crReport.ExportOptions.DestinationType = 1 'Disk
crReport.ExportOptions.FormatType = 31 'PDF
crReport.ExportOptions.PDFExportAllPages = True
crReport.ExportOptions.DiskFileName = "c:\temp\myReport.pdf"
crReport.Export False 'Don't Prompt

' Free file handle and delete RPT file
Set crReport = Nothing
Set crApplication = Nothing
Set srFileSystem = WScript.CreateObject("Scripting.FileSystemObject&quot
srFileSystem.DeleteFile(sFileSpec)

-k

http://www.informeddatadecisions.com

kai@informeddatadecisions.com