Dim objApp As CRAXDRT.Application
Dim objReport As CRAXDRT.Report
Dim objExportOptions As CRAXDRT.ExportOptions
Dim objTable As CRAXDRT.DatabaseTable
Set objApp = New CRAXDRT.Application
Set objReport = objApp.OpenReport("d:\testing\report1.rpt")
With objReport
For Each objTable In .Database.Tables
'set the login information for SQL server or Oracle.
objTable.SetLogOnInfo ...
Next
Set objExportOptions = .ExportOptions
With objExportOptions
.DestinationType = crEDTDiskFile
.DiskFileName = "D:\Testing\Report.pdf"
.FormatType = crEFTPortableDocFormat
.PDFExportAllPages = True
End With
.ReadRecords
.DisplayProgressDialog = False
.Export False
End With
Set objTable = Nothing
Set objExportOptions = Nothing
Set objReport = Nothing
Set objApp = Nothing