Impromptu Macro Busy Server message

[riverar]

When I run my macro it opens a Impromptu session and runs the desired report. Once the report is completed it give me a Server Busy message and unless I click on Switch To the macro will not complete.

What causes this and how can I correct my macro to avoid this error message?

 

[navshiv]

can you copy and paste your code please?

 

[riverar]

Sure. It seems to stop responding when it is going to save the report.

******************
Dim objImpApp as Object
Dim objImpRep as Object
Dim DepositDate as String
Dim objPDFPub as Object

Set objImpApp = CreateObject("CognosImpromptu.Application")
Set objImpRep = CreateObject("CognosImpromptu.Application")
'Open an Impromptu session
objImpApp.Visible TRUE 'make Impromptu visible


'Open Catalog
objImpApp.OpenCatalog "G:\COGNOS\enQuestaCatalog\hilldb.cat","Creator"
DepositDate = DateTime
PromptString = Format(DepositDate,"YYYY/MM/DD")

Set objImpRep = objImpApp.OpenReport("G:\Distributed Processing\Projects\Iq_Impromptu_enQuesta\AnnLongo\DailyDepositReceived.imr",PromptString)
objImpRep.RetrieveAll
Set objPDFPub = objImpRep.PublishPDF
objPDFPub.Publish "G:\Distributed Processing\Projects\Iq_Impromptu_enQuesta\AnnLongo\DailyDepositReceived.pdf"

objImpRep.CloseReport
objImpApp.Quit
Set objImpRep = Nothing
Set objImpApp = Nothing
End Sub