Çıktı alınacak PDF lere Üst Bilgi Yazdırma

[metin_0606]

Aşağıdaki makro ile çalışma sayfamın B sütununa yazmış olduğum TC kimlik numaları doğrultsunda ilgili klasörde arama yapıp liste sırasına göre çıktı almaktayım. Almış olduğum bu PDF çıktılarına çıktı alırken A sütununda yazılı olan sicil numaralarını ilgili evrakların sağ üst köşesine gelecek şekilde okunacak büyüklükte üst bilgi olarak yazdırmak mümkünmü acaba. Yardımlarınız için şim

Sub KAPALI_PDF_LERI_YAZDIR()
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, 2).Text & ".pdf"
    If Dir(belge) <> "" Then _
        CreateObject("Shell.Application").Namespace(0).ParseName(belge).InvokeVerb ("Print")
    Application.Wait Now + TimeSerial(0, 0, 3)
Next

MsgBox "işlem tamam"
Application.ScreenUpdating = True
End Sub

diden teşekkürler

 

[metin_0606]

Güncel

 

[Erdem Akdemir]

Adobe Acrobat Pro ve excel bağlantısı ile belki yapılabilir ama çokta oluru yok gibi.

 

[metin_0606]

Adobe Acrobat Pro ve excel bağlantısı ile belki yapılabilir ama çokta oluru yok gibi.

Mümkünü olsaydi iyi olurdu erdem hocam 3500 personelin dosyasını elden geçireceğim çünkü

 

[Erdem Akdemir]

PDF'leri nasıl oluşturuyorsunuz.

 

[metin_0606]

PDF'leri nasıl oluşturuyorsunuz.

PDF leri yazıcıdan PDF olarak tarayıp peronelin TC kimlik numarasına göre isimlendirip ilgili klasöre taşıyoruz

 

[Erdem Akdemir]

Adobe Acrobat pro programını edinebilirseniz, tarama yapıldıktan sonra isimlendirme sırasında pdf üzerinde TC numaralarını'da pdf'e ekleyebilirsiniz. Hatta çift saklama yapardınız. Bir tane TC numarası yazan pdf bir tanede yazmayan.

 

[metin_0606]

Adobe Acrobat pro programını edinebilirseniz, tarama yapıldıktan sonra isimlendirme sırasında pdf üzerinde TC numaralarını'da pdf'e ekleyebilirsiniz. Hatta çift saklama yapardınız. Bir tane TC numarası yazan pdf bir tanede yazmayan.

Teşekkür ler erdem hocam bı arastirayim