Klasördeki PDF dosyalarını Comboboxta listeleme ve yazdırma

[Feylosof]

Herkese iyi çalışmalar diliyorum.

Excel dosyası ile aynı Klasörde bulunan sadece PDF dosyalarını Comboboxa aldırmak. ve içinden seçtiğim dosyayı yazdırmak istiyorum.
Yardımlarınız için şimdiden teşekkürler.

 

[Haluk]

Aslında bence en iyisi yazdırma butonunu iptal etmek... Seçilen PDF'i açtıktan sonra kendiniz manuel olarak yazdırırsınız ama yine de yazdırma kodunu ekledim.

(Yazdırmak için AcroRd32.exe dosya yolunu kendi bilgisayarınızda kontrol etmenizde fayda var)

Private Sub CommandButton1_Click()
    Shell "C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe /p /h " & ThisWorkbook.Path & Application.PathSeparator & ComboBox1.Text, vbHide
End Sub
'
Private Sub CommandButton2_Click()
    CreateObject("WScript.Shell").Run ThisWorkbook.Path & Application.PathSeparator & ComboBox1.Text
End Sub
'
Private Sub UserForm_Initialize()
    Dim MyDir As String, MyFile As String
    MyFile = Dir(ThisWorkbook.Path & Application.PathSeparator & "*.pdf")
    Do While MyFile <> ""
        ComboBox1.AddItem MyFile
        MyFile = Dir
    Loop
End Sub

.

 

[Feylosof]

Sayın @Haluk çok teşekkür ederim. Eve geçince dosyayı inceleyip size bilgi vereceğim.

 

[Feylosof]

@Haluk Bey merhaba
PDF'ler Comboboxta listeleniyor. Ancak Comutları çalıştıramadım. Dosya yolunu düzenledim. Pdf açılıyor ama benim dosyayı hata vererek getirmiyor.
Diğer komutta da bu hatayı veriyor. Beceremedim vesselam.

 

[Zeki Gürsoy]

WScript Run metodu, dizin veya dosya isimlerindeki boşluk karakterine duyarlı olduğundan çift tırnak içine alınması gerekir. İlgili metodu aşağıdaki ile değiştirin.

Private Sub CommandButton2_Click()
    CreateObject("WScript.Shell").Run Chr(34) & ThisWorkbook.Path & Application.PathSeparator & ComboBox1.Text & Chr(34)
End Sub

 

[Feylosof]

WScript Run metodu, dizin veya dosya isimlerindeki boşluk karakterine duyarlı olduğundan çift tırnak içine alınması gerekir. İlgili metodu aşağıdaki ile değiştirin.

Private Sub CommandButton2_Click()
    CreateObject("WScript.Shell").Run Chr(34) & ThisWorkbook.Path & Application.PathSeparator & ComboBox1.Text & Chr(34)
End Sub

Sayın @Zeki Gürsoy müteşekkirim. Sağlıkla kalın