A
A. Pach
Hi!
I'm using the Application.FollowHyperLink function to open .pdf files. But
it doesn't work if the PC has only the Adobe Reader version. I already try
it with the Standard and Pro version and it works. Why it doesn't work with
the Reader??
Here's the code:
Public Function GetAddress(StrInput As Variant) As Boolean
On Error GoTo Error_GetAddress
Application.FollowHyperlink StrInput, , True
GetAddress = True
....
Here's where i call Get_Address function:
For i = 0 To Me.LstReport.ItemsSelected.Count - 1
idx = Me.LstReport.ItemsSelected.Item(i)
strRptName = Me.LstReport.Column(1, idx)
Call MiscFunctions.GetAddress(strRptName)
Next
.....
The only function that works for Adobe Reader was the Shell:
Call Shell("""C:\Program Files\Adobe\Acrobat 7.0\Reader\acrord32.exe "" " &
strRptName & "", 1)
But i don't want to specify the Adobe version hardcoded...
Please Help!!!
Thanks in advance...!
A. Pach
I'm using the Application.FollowHyperLink function to open .pdf files. But
it doesn't work if the PC has only the Adobe Reader version. I already try
it with the Standard and Pro version and it works. Why it doesn't work with
the Reader??
Here's the code:
Public Function GetAddress(StrInput As Variant) As Boolean
On Error GoTo Error_GetAddress
Application.FollowHyperlink StrInput, , True
GetAddress = True
....
Here's where i call Get_Address function:
For i = 0 To Me.LstReport.ItemsSelected.Count - 1
idx = Me.LstReport.ItemsSelected.Item(i)
strRptName = Me.LstReport.Column(1, idx)
Call MiscFunctions.GetAddress(strRptName)
Next
.....
The only function that works for Adobe Reader was the Shell:
Call Shell("""C:\Program Files\Adobe\Acrobat 7.0\Reader\acrord32.exe "" " &
strRptName & "", 1)
But i don't want to specify the Adobe version hardcoded...
Please Help!!!
Thanks in advance...!
A. Pach