AccessTr.neT

Merhaba Arkadaşlar Hayırlı Cumalar

Bir arkadaşım sormam için rica etti. Yardımcı olabilirseniz sevinirim.
Vb de
Sub TopluYaz()

Dim evn As Object, klasor As Object, dosya As Object, yol As Variant, Msg
Msg = MsgBox("Yazdırmak İstediğinizden Emin misiniz?", vbYesNo + vbQuestion, "Çıkış")
If Msg = vbYes Then
Set evn = CreateObject("shell.application")
yol = CreateObject("scripting.filesystemobject").getfolder(ThisWorkbook.Path)
Set klasor = evn.Namespace(yol)
Set dosya = klasor.Items()
    For Each dosya In dosya
        dosya.InvokeVerbEx "Print"
    Next
Set dosya = Nothing: Set klasor = Nothing
Set yol = Nothing: Set evn = Nothing
End
ElseIf Msg = vbNo Then
Exit Sub
End If
End Sub

Kodunda hata alıyormuş 424 Object Required hatası
yol = CreateObject("scripting.filesystemobject").getfolder(ThisWorkbook.Path) kısmı sarı oluyormuş teşekkürler

Hayirli geceler arkadaslar. Konu hakkinda bir fikri olan var mu?

ornek uygulamayi verirsen yardimci olmaya çalışırım inşallah fakat siz sadece butonun kodunu vermişsiniz.

Ramazan bey hayirli sabahlar.
Uygulamanin tamami bir buton zaten.Butona basinca bulundugu dosyanin icindeki dosyalari yazdiracak. Vb de bir form yapip icine bir buton koydum butonun kodu da bu. Kodu Excel de bir buton yapip yerlestirdigimde calisiyor. Lakin Vb de projeyi .exe olarak kaydet dedigimde zaten bir form ve bir buton tikladigimda dedigim alanda hata veriyor. 
Cumleten üc aylarimiz mubarek olsun

Sn kübrashn;
senin de üc aylarimiz mubarek olsun


ThisWorkbook.Path yerine App.Path olarak deneyin.

Hayırlı sabahlar arkadaşlar
Maalesef Ahmet bey yine olmadı. Bu seferde pdf leri tek tek açıp kaydetmeyi deniyor. Ben direk yazdırmaya başlamasını istiyorum.
18 nci gün başladı 5 kişi ile bir çözüm bulamadık.