tiedyelime
Programmer
I am getting the above error message. I am trying to export a report to pdf. I can supply with my code if that will help. But the snipet where the problem is...
Sub GeneratePDF()
Set objImpRep = objImpApp.OpenReport(strImrSource)
objImpRep.Reexecute
Set ImpPDFRep = objImpRep.PublishPDF
ImpPDFRep.Version 0 'line where the problem starts
ImpPDFRep.ExportOptions 15
ImpPDFRep.Publish strPDFFileName & ".pdf"
strPDFFileName = Left$(objImpRep.FullName, Len _
(objImpRep.FullName) - 4)
ImpPDFRep.Publish strPDFFileName & ".pdf"
ReportPDF = strPDFFileName & ".pdf"
objImpRep.Save
objImpRep.CloseReport
End Sub
Sub GeneratePDF()
Set objImpRep = objImpApp.OpenReport(strImrSource)
objImpRep.Reexecute
Set ImpPDFRep = objImpRep.PublishPDF
ImpPDFRep.Version 0 'line where the problem starts
ImpPDFRep.ExportOptions 15
ImpPDFRep.Publish strPDFFileName & ".pdf"
strPDFFileName = Left$(objImpRep.FullName, Len _
(objImpRep.FullName) - 4)
ImpPDFRep.Publish strPDFFileName & ".pdf"
ReportPDF = strPDFFileName & ".pdf"
objImpRep.Save
objImpRep.CloseReport
End Sub