[Yardım]  Kapalı Pdf Dosyasını Yazdırma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Kapalı Pdf Dosyasını Yazdırma

İleti#1)  alibuyuk66 » 15 Nis 2019 15:40

Merhaba.

D : Fişler
Klasörüm var içinde pdf dosyalarım var
excel user formun üzerindeki combobox1'e klasörün içindeki bir dosyasına adını yazıp butonunda tıkladığımda oradaki pdf yi açmadan yazdırmasını eğer içinde öyle bir dosya yok ise dosya yok diye mesaj vermesini istiyorum.
Kaç gündür internetten arıyorum böyle bir çözüm bulamadım. Benim yaptığım kodlar dosyayı açıyor ben açılmasını istemiyorum.

Yardım ederseniz sevinirim.
Kullanıcı avatarı
alibuyuk66
 
Adı Soyadı:ali büyük
Kayıt: 25 Ağu 2012 22:16
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: urfa

Cevap: Kapalı Pdf Dosyasını Yazdırma

İleti#2)  veyselemre » 15 Nis 2019 16:22

Kod: Tümünü seç
    pth = "D:\Fişler\"
    fName = combobox1.Text
    FullName = pth & fName
    If Dir(FullName) <> "" Then
        CreateObject("Shell.Application").Namespace(0).ParseName(FullName).InvokeVerb ("Print")
    Else
        MsgBox FullName & vbCr & vbCr & "Bulunamadı...."
    End If
Kullanıcı avatarı
veyselemre
Siteye Alışmış
 
Kayıt: 28 Nis 2015 15:53
Meslek: SERBEST
Yaş: 104
İleti: 384
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çubuk

Cevap: Kapalı Pdf Dosyasını Yazdırma

İleti#3)  alibuyuk66 » 16 Nis 2019 08:15

Teşekkürler güzel olmuş fakat combobox1 e dosyanın uzantısınıda yazmadan dosyayı bulamıyor.
Kullanıcı avatarı
alibuyuk66
 
Adı Soyadı:ali büyük
Kayıt: 25 Ağu 2012 22:16
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: urfa

Cevap: Kapalı Pdf Dosyasını Yazdırma

İleti#4)  alibuyuk66 » 16 Nis 2019 08:51

Teşekkürler
Çözdüm Vermiş olduğunuz kodlara istinaden uzantılıda değişken olarak tanımladım.
denedim çalıştı.
Yardımınız için teşekkür ederim.

pth = "D:\Fişler\"
fName = ComboBox1.Text
uz = ".pdf"
FullName = pth & fName & uz
If Dir(FullName) <> "" Then
CreateObject("Shell.Application").Namespace(0).ParseName(FullName).InvokeVerb ("Print")
Else
MsgBox FullName & vbCr & vbCr & "Bulunamadı...."
End If
Kullanıcı avatarı
alibuyuk66
 
Adı Soyadı:ali büyük
Kayıt: 25 Ağu 2012 22:16
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: urfa

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Kapalı Pdf Dosyasını Yazdırma

İleti#5)  acolkesen » 16 Nis 2019 09:05

Merhaba,
Belgelerinizin tamamı pdf ise kodun ilgili satırını ComboBox1.Text & ".pdf" şeklinde değiştirin.
Kullanıcı avatarı
acolkesen
 
Adı Soyadı:ahmet çölkesen
Kayıt: 22 Mar 2009 18:43
Konum: DÜZCE
Meslek: Öğretmen
Yaş: 65
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Düzce/akçakoca

Cevap: Kapalı Pdf Dosyasını Yazdırma

İleti#6)  alibuyuk66 » 16 Nis 2019 11:51

yardımınız için yinede teşekkürler yukarıdaki cevabımda açıkladığım şekilde çözdüm
Kullanıcı avatarı
alibuyuk66
 
Adı Soyadı:ali büyük
Kayıt: 25 Ağu 2012 22:16
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: urfa

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Bing[Bot], Google [Bot], Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe