https://accesstr.net/konu-raporlari-pdf-...#pid159558 bu bağlantıdaki kod işinize yarayabilir
Aslında o konunun tümü sorunuza cevap olarak kullanılabilir
Dosya yolunu aldıktan sonra isimlendirme kısmına
GetFolderName & "\" & Me.ad & ".pdf" yerine
GetFolderName & "\" & Metin11.Column(1, x ) & ".pdf" kodunu kullanabilirsiniz