Sorun referansta mı?

[cavanoos]

Merhaba arkadaşlar;

Aşağıdaki makro kodunda .LoadFile pdfler.Path bu satırda hata veriyor.Bu hata neden kaynaklanıyordur ?

Bu makro kodu ile pdf dosyalarını yazdırmak istiyorum.Adobe acrobat 10 kullanıyorum.Seçtiğim referans adobe acrobat 10.0 type library

Yardım edebilir misiniz ?


Sub YAZDIR()

With AcroPDF1
Dim yol As String, evn As Object
Dim klasor As Object, pdfler As Object
yol = "c:\TELEFON"
Set evn = CreateObject("scripting.filesystemobject")
Set klasor = evn.getfolder(yol)
For Each pdfler In klasor.Files
.LoadFile pdfler.Path
.setCurrentPage 1
.printPages From:=1, To:=1
Next pdfler
Set pdfler = Nothing: Set klasor = Nothing
Set evn = Nothing: yol = vbNullString
End With

End Sub

 

[cavanoos]

Arkadaşlar;

Kodu userforma attım.Çalıştı.Yalnız telefon klasöründeki bir adet pdf dosyasını açtı,yazdırdı ve ekranda kaldı.

Pdf dosyasını kapatıp bir sonrakine geçmedi.Sanırım döngüde bir eksiklik var.Referansta sorun yok.Lütfen yardım edin.Kodun en son hali altta;

Private Sub UserForm_Activate()
With AcroPDF1
Dim yol As String, evn As Object
Dim klasor As Object, pdfler As Object
yol = "c:\TELEFON"
Set evn = CreateObject("scripting.filesystemobject")
Set klasor = evn.getfolder(yol)
For Each pdfler In klasor.Files
.LoadFile pdfler.Path
.setCurrentPage 1
.printPages From:=1, To:=1
Next pdfler
Set pdfler = Nothing: Set klasor = Nothing
Set evn = Nothing: yol = vbNullString
End With



End Sub