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.
Related Q&A from Brian Mahoney
Find out what types of calculations can be computed for a column in a Lotus Notes view and the best way to go about it with this expert response.continue reading
Find out why you can't use Formula language to include a doclink to a specific Lotus Notes view or database and need to use LotusScript instead.continue reading
Discover the reasons behind a Notes/Domino admistrator having trouble with disabled options in the "customize this view" section of his Lotus Notes ...continue reading
Have a question for an expert?
Please add a title for your question
Get answers from a TechTarget expert on whatever's puzzling you.