Closing an open PDF

[mv8167]

What ise wrong with: **

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)

[ravi.gajul]

Hi,
Please see the corrected code below

Code:

Set AcroApp = CreateObject( "AcroExch.App" )
Set AcroAVDoc = CreateObject( "AcroExch.AVDoc" )
gPDFPath="C:\test.pdf" 'please change the path before execution
' Open the PDF
AcroApp.Show()
AcroApp.Maximize(vbMaximize)
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()
'msgbox PDFName
'msgbox PDFPageCount
AcroApp.CloseAllDocs()
AcroApp.Exit()
End If
Set AcroApp = Nothing
Set AcroAvDoc = Nothing

Regards,
Ravi

[mv8167]

Tax again Ravi


but how do i then close my file? What i am trying wont close my open PDF.

thx

[ravi.gajul]

The lines below should close the file

Code:

AcroApp.Hide()
AcroApp.CloseAllDocs()
AcroApp.Exit()

or for cross verification you may check the returnvalue

Code:

AcroApp.Hide()
returnValue1 = AcroApp.CloseAllDocs()  'returnValue= -1 if successful,0 if not
returnValue2 = AcroApp.Exit()
msgbox returnValue1
msgbox returnValue2

Note: AcroApp.Exit() Returns -1(or true) if the entire shutdown process succeeded. This includes closing any open
documents, releasing OLE references, and finally exiting the application. If any step fails,
the function returns 0, and the application will continue running. This method will not
work if the application is visible (if the user is in control of the application). In such
cases, if the Show() method had previously been called, you may call Hide() and then
Exit().
Please let me know your findings.If this doesn't help..please let me know whether or not there is an error message, if so, what it is?

Regards,
Ravi

[mv8167]

Ravi...

Thx this worked perfectly. I had no error message, i just could not get my PDF to close. I think my earlier code was incorrect.

Your the best, THX

[ravi.gajul]

Glad it worked.Thank you.