Posted 9 April 2025, 4:09 am EST
Hi,
I had issue on ExportStream. When i call myPDFExport.ExportStream rptInvoice.Pages, myBArray, myBArray is empty. Whereas i try myPDFExport.Export rptInvoice.Pages, the PDF was exported. Could you please give some advise?
Private Function WebCacheExport() As Long
Dim myBArray As Variant
Dim myPDFExport As ActiveReportsPDFExport.ARExportPDF
Set myPDFExport = New ActiveReportsPDFExport.ARExportPDF
myPDFExport.AcrobatVersion = DDACR40
myPDFExport.FileName = App.Path & "\PDFReport.PDF"
myPDFExport.JPGQuality = 100
myPDFExport.OutputTOCAsBookmarks = True
myPDFExport.SemiDelimitedNeverEmbedFonts = ""
myPDFExport.ShowBookmarksInAcrobat = True
myPDFExport.ExportStream rptInvoice.Pages, myBArray
' Check the value of myBArray
If IsEmpty(myBArray) Then
MsgBox "myBArray is empty."
Else
MsgBox "myBArray has data."
End If
WebCacheExport = 0
End Function