Hi there
Please could you assist me. I'm trying to use the craxdrt.dll to export an existing CR report to a file in PDF format. So far my code looks like this:
Dim crxApplication As New CRAXDRT.Application
Dim crxReport As New CRAXDRT.Report
Public Sub ExportToPDF()
Set crxReport = crxApplication.OpenReport(App.Path & "\Reports\OL - CODA Suspense Journals.rpt"
With crxReport
.ExportOptions.FormatType = crEFTPortableDocFormat
.ExportOptions.DestinationType = crEDTDiskFile
.ExportOptions.DiskFileName = App.Path & "\Reports\OL - CODA Suspense Journals.pdf"
.ExportOptions.PDFExportAllPages = True
.EnableAsyncQuery = True
.Export
End With
End Sub
But when it gets to the .Export bit, it prompts me for the output format again, as well as the number of pages to output. When I reply to the prompts, the export works fine. However, this process is going to run on a batch process server which does not allow user intervention, so I really need to switch off the prompts.
Would be grateful for any help.
Thx,
Jacqui
Please could you assist me. I'm trying to use the craxdrt.dll to export an existing CR report to a file in PDF format. So far my code looks like this:
Dim crxApplication As New CRAXDRT.Application
Dim crxReport As New CRAXDRT.Report
Public Sub ExportToPDF()
Set crxReport = crxApplication.OpenReport(App.Path & "\Reports\OL - CODA Suspense Journals.rpt"
With crxReport
.ExportOptions.FormatType = crEFTPortableDocFormat
.ExportOptions.DestinationType = crEDTDiskFile
.ExportOptions.DiskFileName = App.Path & "\Reports\OL - CODA Suspense Journals.pdf"
.ExportOptions.PDFExportAllPages = True
.EnableAsyncQuery = True
.Export
End With
End Sub
But when it gets to the .Export bit, it prompts me for the output format again, as well as the number of pages to output. When I reply to the prompts, the export works fine. However, this process is going to run on a batch process server which does not allow user intervention, so I really need to switch off the prompts.
Would be grateful for any help.
Thx,
Jacqui