Web Development·12,144 discussions

crystal reports ran by vbscript

Locked

I have searched many newsgroups and have not found an adequate answer to how a crystal report can be viewed/opened via vbscript. I have a report on a test web server and remote users can not get to it when I send a link to it via email. My vbscript needs to open the report, possibly export to a directory and then attach to an email. Code for email works great but I have tried getobject and createobject(“CrystalReportRuntime.Application”) and the script errors out at the line where either getobject or createobject is found. I need wisdom. Thank you.

Topic

Reply To: crystal reports ran by vbscript

In reply to crystal reports ran by vbscript

Hi Wakin,

The following code takes a filename of a Crystal Report and exports it to a PDF. It works with Crystal 8.5. I haven’t tried it with anything else.

Fred.

—
function ExportRPT( line )
dim rptfile, exportfile
dim RetValue
dim strDate
dim objCRRpt
dim objCRApp

WriteLog( “ExportRPT: ” & line )

strDate = year(now()) & “-” & right(“0” & month(now()),2) & “-” & right(“0” & day(now()),2)

RetValue = “”

rptfile = UCase(line)
exportfile = Replace(rptfile, “.RPT”, “-” & strDate & “.PDF”)

Set objCRApp = CreateObject(“CrystalRunTime.Application”)
set objCRRpt = objCRApp.openreport( rptfile )

With objCRRpt
With .exportoptions
.formattype = crEFTPortableDocFormat
.PDFExportAllPages = true
.diskfilename = exportfile
.destinationtype = CrEDTDiskFile
.UseReportDateFormat = True
.UseReportNumberFormat = True
End With
.export(False)
RetValue = exportfile
End With
ExportRPT = RetValue
end function

[Author]

Replies