Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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
.rar dosya.rar (Dosya Boyutu: 62,1 KB | İndirme Sayısı: 6)
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla
#2
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.
 İyi olan tek şey bilgi ve kötü olan tek şey de cehalettir. (Sokrates)
Cevapla
#3
sayın onurcan hocam, ellerinize sağlık kodları düzelttim çalıştı harika bir örnek olmuş
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla
#4
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
Cevapla
#5
(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.
Son Düzenleme: 22/10/2024, 10:59, Düzenleyen: Xeccer.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task