Kod:
PDFAdi = CurrentProject.Path & "\DUYURU\" & Forms!Form1!duyurutarih & ".pdf"
Call PDFDosyaAcKod:
Public PDFAdi As String
Public Sub PDFDosyaAc()
If Len(Dir("C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe", vbDirectory)) > 0 Then
Call Shell("C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe /AZoom=100=OpenActions " & PDFAdi, vbNormalFocus)
End If
If Len(Dir("C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe", vbDirectory)) > 0 Then
Call Shell("C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe /AZoom=100=OpenActions " & PDFAdi, vbNormalFocus)
End If
If Len(Dir("C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe", vbDirectory)) > 0 Then
Call Shell("C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe /AZoom=100=OpenActions " & PDFAdi, vbNormalFocus)
End If
If Len(Dir("C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe", vbDirectory)) > 0 Then
Call Shell("C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe /AZoom=100=OpenActions " & PDFAdi, vbNormalFocus)
End If
End SubEğer dosya açma hatası ile karşılaşırsanız muhtemelen Acrobat Readerin yolu farklıdır. Bu yolu eklemiş olduğunuz modül üzerinden düzeltebilirsiniz.
