Klasörden PDF leri açmadan direk yazdırma

[exel42]

S.a arkadaşlar daha excel de çok çok acemiyim
İçinde sayısı belli olmayan isimlerle adlandırılmış pdf raporlar mevcut seçtiğim klasörün içinden pdf dosyalarının isimlerine göre arama yapıp listboxta göstersin istiyorum.sonra listboxtan seçtiğim rapor ismine tıklayınca direk varsayılan yazıcıya göndersin.Yada list boxta birden fazla seçim yapıp yazdır dediğimde seçtiklerimi listboxtaki sıraya göre pdf açmadan sormadan yazdırsın.
Yardımcı olursanız sevinirim ben bir çalışma yaptım "MsgBox yol & isim" kısmında yazdırma denemeleri yaptım ama bir türlü direk yazdırmayı beceremedim.

Private Sub CommandButton1_Click()
Set evn = CreateObject("scripting.filesystemobject")
Set klasor = evn.getfolder("C:\Users\PC\Desktop\2016")
For Each dosyalar In klasor.Files
If VBA.Right(dosyalar.Name, 3) = "pdf" And VBA.Left(dosyalar.Name, 3) = TextBox1.Value Then
ListBox1.AddItem Replace(dosyalar.Name, ".pdf", "")
End If
Next

End Sub

Private Sub ListBox1_Click()
Dim yol As String
Dim isim As String
   yol = "C:\Users\PC\Desktop\2016\"
   isim = Dir(yol & ListBox1.Text & "*.pdf")
   MsgBox yol & isim
End Sub

 

[exel42]

exel dökümanını isterseniz ekte arkadaşlar https://drive.google.com/file/d/0B9QXMZrHa9JMdkdoajNUNlgzUG8/view?usp=sharing

 

[Murat OSMA]

Bu kodları kullanabilirsiniz..

[FONT="Trebuchet MS"]
[SIZE="2"]Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub Emre()
    On Local Error Resume Next
    Dim evn As Object, pdfler As Object
    Set evn = CreateObject("scripting.filesystemobject").getfolder(ThisWorkbook.Path)
    For Each pdfler In evn.Files
        If LCase(Right(pdfler.Path, 3)) = "pdf" Then
            ShellExecute 0, "Print", pdfler, "", "", vbNormalNoFocus
            Application.Wait Now + TimeSerial(0, 0, 2)
        End If
    Next pdfler
    Set pdfler = Nothing: Set evn = Nothing
End Sub[/SIZE]
[/FONT]

 

[exel42]

S.a murat bey kodlar işimi gördü baya revizyon yaptım
size sorum aşağıda ki kodları (General) kısmına yazmam sorun olurmu? (general) kısmına yazılan kodlar sürekli çalışırmı?

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long