Macro to open Adobe Reader

[GoodmanJim]

I have a macro that opens a document in Abode Reader. Since Acrobat Reader DC is now a Web based program, I cannot open in this this line of a macro. It cannot find the program to open.

“& PicPath” is the file to open and worked before Abode changed the reader

This is the line that does not work.
Shell "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe/open " & PicPath, vbNormalFocus

Thank you in advance for any help

 

[Haluk_]

Re: Macro to open Abode Reaader

The following simple code may help you;

Sub Test()
    PicPath = "C:\TestFolder\myFile.pdf"
    ActiveWorkbook.FollowHyperlink "C:\TestFolder\myFile.pdf"
End Sub

 

[Jeffrey Mahoney]

Re: Macro to open Abode Reaader

Please try this


Example of how to call the function

Sub OpenPrinterInstructionPDF()
  Dim RootFolder As String
  Dim A As String
  
  RootFolder = Sheets("Setup").Range("RootFolder")
  A = RootFolder & "\Zebra Printers\Install a new TAG printer Instructions.pdf"
  
  OpenAnyFile (A)
End Sub

Function OpenAnyFile(FileToOpen As String)
     
    Call ShellExecute(0, "Open", FileToOpen & vbNullString, _
    vbNullString, vbNullString, 1)
     
End Function

 

[Haluk_]

Re: Macro to open Abode Reaader

I couldn't edit my post

Using the PicPath variable;

Sub Test()
    PicPath = "C:\TestFolder\myFile.pdf"
    ActiveWorkbook.FollowHyperlink PicPath
End Sub

This will open the file defined in the variable "PicPath" by the associated program with PDF files in your PC.

This means that; if Adobe Reader is associated with PDF files, the file will be opened by it.