Aşağıdıki kod işiniz görür sanırım.
Kod:
Sub pdfAç()
Dim sfilename As String
Dim strPath As String
strPath = CurrentProject.Path
strFileName = strPath & "\ak32.pdf"
Call Shell("C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe " & " " & strFileName)
End Sub
Ancak Shell parantezinin içine kendi pdf okuyucunuzun yolunu ve tam dosya adı yazmanız gerekir. Bende Acrobat 7.0 Reader var
Sub pdfAç()
Dim sfilename As String
Dim strPath As String
strPath = CurrentProject.Path
strFileName = strPath & "\ak32.pdf"
Call Shell("C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe " & " " & strFileName)
End Sub
C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe yazılmaadan yani dosyaya tıklayınca nasıl açılıyorsa o şekilde açılamazmı. Çünkü acrobat ın exe dosyası her bilgisayarda farklı yerde olabilmektedir.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.