C
Christofer Dutz
Hi,
I am workin on a small Database which manages a collection of
PDF-Documents. I managed to Open a PDF using the folowing code.
Private Sub openPdf(Path As String)
Dim AcroApp As Object
Dim PDDoc As Object
Dim avDoc As Object
Set AcroApp = CreateObject("AcroExch.App")
Set PDDoc = CreateObject("AcroExch.PDDoc")
If PDDoc.Open(Path) Then
AcroApp.show
Set avDoc = PDDoc.OpenAVDoc("")
Else
MsgBox "Unable to open the PDF-file", vbInformation
End If
Set avDoc = Nothing
Set PDDoc = Nothing
Set AcroApp = Nothing
End Sub
Unfortunately I want to insert the PDF inside a form. Just the way it
looks if you view a PDF inside the Internet-Explorer. This opens the
Accrobat Reader as a separate application.
Christofer
I am workin on a small Database which manages a collection of
PDF-Documents. I managed to Open a PDF using the folowing code.
Private Sub openPdf(Path As String)
Dim AcroApp As Object
Dim PDDoc As Object
Dim avDoc As Object
Set AcroApp = CreateObject("AcroExch.App")
Set PDDoc = CreateObject("AcroExch.PDDoc")
If PDDoc.Open(Path) Then
AcroApp.show
Set avDoc = PDDoc.OpenAVDoc("")
Else
MsgBox "Unable to open the PDF-file", vbInformation
End If
Set avDoc = Nothing
Set PDDoc = Nothing
Set AcroApp = Nothing
End Sub
Unfortunately I want to insert the PDF inside a form. Just the way it
looks if you view a PDF inside the Internet-Explorer. This opens the
Accrobat Reader as a separate application.
Christofer