-
trying to view PDF files
Hello, I am trying to view pdf files. I read over the adobe SDK documentation and this is what I came up with:
Code:
Public Function PdfView(ByVal filePath 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(filePath) Then
AcroApp.Show()
avDoc = PDDoc.OpenAVDoc("")
Else
MsgBox("Unable to open the PDF-file", vbInformation)
End If
avDoc = Nothing
PDDoc = Nothing
AcroApp = Nothing
End Function
The problem is that it loads up Adobe Acrobat, but does not show me the pdf file. For some reason it loads it acrobat with an empty screen. Not sure why. Any help?
-
-
Thanks for the help, it worked good