trying to view PDF files

[jonx]

Hello, I am trying to view pdf files. I read over the adobe SDK documentation and this is what I came up with:

    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?

[johnpc]

http://www.vbforums.com/showthread.p...pen+a+pdf+file

[jonx]

Thanks for the help, it worked good