Save an Open PDF file

[mv8167]

I have an open PDF file that became this way by selecting a link. Now I need to safe the PDF to gPDFPath. I cannot seem to figure out how to Set an open PDF, Save it and then Close tyhe doc

Code:

gPDFPath = "O:\QTP Tests\NightlyRegressionTesting\Results-PDFandZIP\" & ReportName & "-" & TodaysDate & ".pdf"

'Set AcroAVDoc = CreateObject( "AcroExch.AVDoc" )
AcroAVDoc.Save(PDSaveFull, gPDFPath)
AcroAVDoc.CloseAllDocs()
AcroAVDoc.Exit()
Set AcroAVDoc = Nothing

Any kins suggestions?