Program Dışında Bir Pdf Dosyasını Açtırmak

Program Dışında Bir Pdf Dosyasını Açtırmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Program Dışında Bir Pdf Dosyasını Açtırmak (/konu-program-disinda-bir-pdf-dosyasini-actirmak.html)

Program Dışında Bir Pdf Dosyasını Açtırmak - karaayhan - 21/07/2024

açılır kutudan seçtiğimiz döneme ait duyuruya göre
klasörde bulunun o döneme ait pdf dosyasını açtırmak istiyorum

Re: Program Dışında Bir Pdf Dosyasını Açtırmak - onur_can - 21/07/2024

Sn karaayhan, öncelikle açılan kutunun Güncelleştirme Sonrası olay yordamına aşağıdaki kodu ekleyin.

Kod:

PDFAdi = CurrentProject.Path & "\DUYURU\" & Forms!Form1!duyurutarih & ".pdf"

Call PDFDosyaAc

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:

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

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.

RE: Program Dışında Bir Pdf Dosyasını Açtırmak - karaayhan - 22/07/2024

sayın onurcan hocam, ellerinize sağlık kodları düzelttim çalıştı harika bir örnek olmuş

RE: Program Dışında Bir Pdf Dosyasını Açtırmak - berduş - 22/07/2024

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

Re: Program Dışında Bir Pdf Dosyasını Açtırmak - Xeccer - 22/10/2024

(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.

Kod:

PDFAdi = CurrentProject.Path & "\DUYURU\" & Forms!Form1!duyurutarih & ".pdf" Call PDFDosyaAc

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:

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

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. 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.