Hello, I am trying to view pdf files. I read over the adobe SDK documentation and this is what I came up with:
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?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




Reply With Quote