I have seen the AcroExch used rather than the AcroRd32. The example below comes from the Experts Exchange Web site. The URL passed is the full URL to the document to be opened, either a HTTP, URL or filepath.
Sub PdfCheck(ByVal URL As String)
Dim AcroApp As Acrobat.CAcroApp
Dim PDDoc As Acrobat.CAcroPDDoc
Dim avDoc As Acrobat.CAcroAVDoc
AcroApp = CreateObject("AcroExch.App")
PDDoc = CreateObject("AcroExch.PDDoc")
If PDDoc.Open(URL) Then
AcroApp.Show()
avDoc = PDDoc.OpenAVDoc("")
Else
MsgBox("Unable to open the
PDF-file", vbInformation)
End If
avDoc = Nothing
PDDoc = Nothing
AcroApp = Nothing
End Sub
Do you have comments on this Ask the Expert question and response? Let us know.
|
