Klasör içinden PDF dosyalarini yazdirma

[metin_0606]

C:\ sürücüsünün içinde kimlik isimli klasörüm var. Bu klasörün içindeki PDF dosyaları 12345678901.pdf formatındadır. Benim yapmak istediğim çalışma sayfamın A sütununa yazdığım TC kimlik numaralarinin klasör içinde karşılığı olan PDF dosyalarını bulup A sutunundaki sırayı baz alarak yazdırmak istiyorum. Yardimlariniz için şimdiden teşekkürler

 

[metin_0606]

Ustatlar böyle bir makro buldum A sutunundaki verileri klasörden bulup

Sub KAPALI_PDF_LERI_YAZDIR()

Dim Gorev_Yoneticisi As Object, Uygulamalar As Variant, Uygulama As Object

Dim belge As String

Application.ScreenUpdating = False

'On Error Resume Next

For sat = 2 To Cells(Rows.Count, "A").End(3).Row

belge = "C:\OGKK_PDF\" & Cells(sat, 1).Text & ".pdf"

If Dir(belge) <> "" Then _

CreateObject("Shell.Application").Namespace(0).ParseName(belge).InvokeVerb ("Print")

Set Gorev_Yoneticisi = GetObject("winmgmts:")

Set Uygulamalar = Gorev_Yoneticisi.ExecQuery("Select * from Win32_Process")

Next

 

 

Application.ScreenUpdating = True

End Sub

yazdırıyor ancak A sutunundaki siraya uymuyor sıralamayı bozarak yazdiriyor