Posted 8 August 2022, 4:29 pm EST
Below is a generic version of my VB6 code:
Sub Main()
rpt.Show
DoEvents
Call Timeout(5)
DoEvents
PDF_Export_SaveFile rpt
DoEvents
Unload rpt
DoEvents
End Sub
Public Sub PDF_Export_SaveFile(actReport As ActiveReport)
Dim pdf As New ActiveReportsPDFExport.ARExportPDF
Dim sFile As String
Dim bSave As Boolean
pdf.FileName = "F:\Projects\Report.pdf"
If actReport.Pages.Count > 0 Then
pdf.Export actReport.Pages
End If
Set pdf = Nothing
End Sub