Impromtu saving as PDF script

[Rick25]

I am trying to save a report as a PDF. I keep recieving cannot convert - Error. Any help would be appriecated.

I am currently using Impromtu 7.3


Set objImpApp = CreateObject("Impromptu.Application")
objImpApp.Visible True
objImpApp.OpenCatalog _
"C:\Program Files\Cognos\Nexen51.cat", "creator"

Set objImpRep = _
objImpApp.OpenReport("C:\Documents and Settings\ghackel\Desktop\Customer Backlog Report.imr", rep(x))

Set objImpPDF = objImpRep.PDFFile("C:\Documents and Settings\ghackel\Desktop\Customer Backlog Report.imr", true)

objImpRep.PDFFile("C:\Documents and Settings\ghackel\Desktop\report4.pdf")

objImpPDF.Save
objImpRep.CloseReport

objImpApp.Quit
Set objImpApp = Nothing
Set objImpRep = Nothing

 

[drlex]

Rick

On the basis that you defined your objects in an unquoted section of code,
remove

Set objImpPDF = objImpRep.PDFFile("C:\Documents and Settings\ghackel\Desktop\Customer Backlog Report.imr", true)

objImpRep.PDFFile("C:\Documents and Settings\ghackel\Desktop\report4.pdf")

and substitute

   Set objImpPDF = objImpRep.PublishPDF
   objImpPDF.Publish "C:\Documents and Settings\ghackel\Desktop\report4.pdf"

soi la, soi carré