Skip to main content

AccessTr.neT


Pdf Yi Açtırma

Pdf Yi Açtırma

Çözüldü #1
Çalışmamda bazı dosyaları yerel ağdan pdf formatında açtırmam icap ediyor. Bu çalışmayı birden fazla bilgisayara kuruyorum. Ancak bir çok bilgisayarda pdf yi açan dosya (acroRd32) nın yolu ve sürümleri farklı olabiliyor. Bu yüzden diğer bilgisayarlara kurlum yaparken oraya özel işlem yapmak gerekiyor. Yani o bilgisayarda program kodlarında ona özel yol veya versiyon belirtiyorsunuz. Bunun yerine hangi pdf sürümü kurulu olursa olsun ilgili yerdeki pdf dosyasını standart bir komutla açtırabilirmiyiz? Bu olmuyorsa pdf yi açtıran dosyanın yolunu otomatik buldurup onun aracılığıyla ilgili yerdeki pdf yi açtırabilirmiyiz.
Cevapla
#2

Visual Basic Code
Application.FollowHyperlink "dosya adresi"

bu komut işinize yarayabilir, yanilmiyorsam doğrudan varsayılan programla açıyor dosyayı.

Cevapla
#3
Sayın Berduş yazdığınız kod ile ilgili klasör açılıyor. Şöyleki:

Visual Basic Code
Application.FollowHyperlink "klasör adresi",vbnormalfocus

ile ilgili klasör açılıyor.

Visual Basic Code
Application.FollowHyperlink "dosya adresi",vbnormalopen

yazarsak(dosya ister jpg olsun ister pdf olsun) dosyayı açıyor. İşaret ettiğiniz komut ile tamamen deneme yanılma ile buldum. Sizin vesilenizle bir problem daha çözüldü. Teşekkür ederim. Ben kodu aşağıdaki gibi uyguladım.

Visual Basic Code
Application.FollowHyperlink "c:\proje\" & Liste15.Column(2, i) & ".jpg", vbnormalopen

Son Düzenleme: 27/08/2020, 22:49, Düzenleyen: aliyorga.
Cevapla
#4
çözümü paylaştığınız için teşekkürler
iyi çalışmalar)
Cevapla
#5
(27/08/2020 22:49)aliyorga Adlı Kullanıcıdan Alıntı: Sayın Berduş yazdığınız kod ile ilgili klasör açılıyor. Şöyleki:

Visual Basic Code
Application.FollowHyperlink "klasör adresi",vbnormalfocus

ile ilgili klasör açılıyor.

Visual Basic Code
Application.FollowHyperlink "dosya adresi",vbnormalopen

yazarsak(dosya ister jpg olsun ister pdf olsun) dosyayı açıyor. İşaret ettiğiniz komut ile tamamen deneme yanılma ile buldum. Sizin vesilenizle bir problem daha çözüldü. Teşekkür ederim. Ben kodu aşağıdaki gibi uyguladım.

Visual Basic Code
Application.FollowHyperlink "c:\proje\" & Liste15.Column(2, i) & ".jpg", vbnormalopen

Merhaba.Alttaki kod ilede açılabili.

Visual Basic Code
CreateObject("Shell.Application").Open ("c:\proje\" & Liste15.Column(2, i) & ".jpg")

Cevapla
#6
Evet bravo, denedim aynı işlemi yapıyor.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da