21/07/2024, 16:10
Program Dışında Bir Pdf Dosyasını Açtırmak
21/07/2024, 22:52
onur_can
Sn karaayhan, öncelikle açılan kutunun Güncelleştirme Sonrası olay yordamına aşağıdaki kodu ekleyin.
Daha sonra komutu çalıştırabilmek için bir modüle ihtiyacımız var. Aşağıdaki kodu yeni bir modül oluşturup ekleyin.
Yalnız şunuda belirteyim DUYURU klasörünüzün içindeki tüm dosyalarınız 2020 Yılını gösteriyor. Muhtemelen kopyalayıp yapıştırmışsınız. Onun için hep aynı dosyayı açıyor demeyin.
Eğ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.
Kod:
PDFAdi = CurrentProject.Path & "\DUYURU\" & Forms!Form1!duyurutarih & ".pdf"
Call PDFDosyaAc
Kod:
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 Sub
Eğ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.
22/07/2024, 09:29
karaayhan
sayın onurcan hocam, ellerinize sağlık kodları düzelttim çalıştı harika bir örnek olmuş
22/07/2024, 13:54
berduş
aşağıdaki kodu dener misiniz?
Dim shell_app As Object
Dim pdfYol As String
pdfYol = CurrentProject.Path & "\DUYURU\" & duyurutarih.Value & ".pdf"
'Ref. için Shell32.dll kütüphanesine bakın.
Set shell_app = CreateObject("Shell.Application")
Debug.Print pdfYol
shell_app.Open "" & pdfYol
Set shell_app = Nothing
22/10/2024, 10:30
Xeccer
(21/07/2024, 22:52)onur_can yazdı: Sn karaayhan, öncelikle açılan kutunun Güncelleştirme Sonrası olay yordamına aşağıdaki kodu ekleyin.
Daha sonra komutu çalıştırabilmek için bir modüle ihtiyacımız var. Aşağıdaki kodu yeni bir modül oluşturup ekleyin.Kod:PDFAdi = CurrentProject.Path & "\DUYURU\" & Forms!Form1!duyurutarih & ".pdf"
Call PDFDosyaAc
Yalnız şunuda belirteyim DUYURU klasörünüzün içindeki tüm dosyalarınız 2020 Yılını gösteriyor. Muhtemelen kopyalayıp yapıştırmışsınız. Onun için hep aynı dosyayı açıyor demeyin.Kod: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 Sub
Eğ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. Ayrıca yakın zamanda çok önemli bir bulgu elde ettim ve bunu sizinle paylaşmadan edemeyeceğim çünkü birçok kişi bana pdf dosyalarıyla nasıl çalıştığımı sordu. Dosya bütünlüğünü ve kalitesini kaybetmeden diğer formatlara dönüştürme de dahil olmak üzere pdf ile çalışmak için harika bir hizmet olan https://pdfguru.com/tr bulacak kadar şanslıydım. Bu yüzden sizin için faydalı olabilir.
Katılıyorum, ben de kullanıyorum.