08-15-2012, 09:37 PM
What ise wrong with: **
'** NONE OF THE BELOW CLOSE THE PDF
WHAT AM I DOING WRONG? (I think I made a mess of this)
Code:
Set AcroAVDoc = CreateObject( "AcroExch.AVDoc" )
' Open the PDF
If AcroAVDoc.Open( gPDFPath, "" ) Then
If AcroAVDoc.IsValid = False Then ExitTest()
AcroAVDoc.BringToFront()
Call AcroAVDoc.Maximize( True )
Set AcroPDDoc = AcroAVDoc.GetPDDoc()
PDFName = AcroPDDoc.GetFileName()
PDFPageCount = AcroPDDoc.GetNumPages()
End If
'** NONE OF THE BELOW CLOSE THE PDF
Code:
AVDoc.CloseAllDocs()
AVDoc.Exit()
AcroAVDoc.CloseAllDocs(
AcroAVDoc.Exit()
AcroExch.CloseAllDocs()
AcroExch.Exit()
Set AcroApp = Nothing
Set AcroAVDoc = Nothing
WHAT AM I DOING WRONG? (I think I made a mess of this)