Ömer hocam belgeler TC kimlik numaraları ile isimlendirilmiş PDF uzantılı evraklardir. Evet bazılarında sayfa sayısı birden fazladir ve tüm sayfalar yazdirilacakMerhaba Sayın @mertatakan_3838 .
Yazdırılacak belge isimlerinin standart olduğu anlaşılıyor doğru mudur?
Peki bu belgelerin uzantıları da belli midir (*.xlsx, *.xlsm gibi) ?
Belgelerde birden fazla sayfa var mıdır? Evet ise tüm sayfalar mı yazdırılacak?
Biraz detay verirseniz iyi olur sanırım.
.
Görüntülemek için giriş yapmanız gerekmektedir.
(12 satır)Pazartesi iş yerinde deneyim size dönüş yapacağım Ömer hocam inşallah olur benim işimi çok kolaylaştıracak teşekkür ederimSayın @mertatakan_3838 , aşağıdaki kod ile istediğinizin olması lazım.
Kodu, TC Kimlik numarası listesinin bulunduğu sayfanın kod bölümüne yapıştırın.
Listenin A2 hücresinden itibaren (1'inci satır başlık diye düşündüm) A sütununda olduğu varsayıldı.
Listenizde 12345678901.pdf gibi TC Kimlik numarasından sonra dosya uzantısı yazılıysa,
kodda kırmızı renklendirdiğim kısmı silin.
.
VBA:Görüntülemek için giriş yapmanız gerekmektedir. (12 satır)
.
Klasörün içindeki evraklar 12345678901.pdf şeklinde bu duruma göre makrodaki kırmızı renkle belirttiğiniz yeri silecekmiyim Ömer hocamSayın @mertatakan_3838 , aşağıdaki kod ile istediğinizin olması lazım.
Kodu, TC Kimlik numarası listesinin bulunduğu sayfanın kod bölümüne yapıştırın.
Listenin A2 hücresinden itibaren (1'inci satır başlık diye düşündüm) A sütununda olduğu varsayıldı.
Listenizde 12345678901.pdf gibi TC Kimlik numarasından sonra dosya uzantısı yazılıysa,
kodda kırmızı renklendirdiğim kısmı silin.
.
VBA:Görüntülemek için giriş yapmanız gerekmektedir. (12 satır)
.
Makroyu denedim Ömer hocam makro herhangi bir tepki vermiyor hatada vermiyor ancak verileri yazdirmiyorSayın @mertatakan_3838 , aşağıdaki kod ile istediğinizin olması lazım.
Kodu, TC Kimlik numarası listesinin bulunduğu sayfanın kod bölümüne yapıştırın.
Listenin A2 hücresinden itibaren (1'inci satır başlık diye düşündüm) A sütununda olduğu varsayıldı.
Listenizde 12345678901.pdf gibi TC Kimlik numarasından sonra dosya uzantısı yazılıysa,
kodda kırmızı renklendirdiğim kısmı silin.
.
VBA:Görüntülemek için giriş yapmanız gerekmektedir. (12 satır)
.
Merhabalar Sn. mertatakan_3838
Makroyu denediğiniz dosyanın Örnek Halini paylaşır mısınız?
Görüntülemek için giriş yapmanız gerekmektedir.
(47 satır)Görüntülemek için giriş yapmanız gerekmektedir.
(14 satır)Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)belge = "C:\AYRILANLAR\" & Cells(sat, 1).Text & "*.pdf"
Görüntülemek için giriş yapmanız gerekmektedir.
(15 satır)Teşekkürler Ömer hocam 5 sn işi işe yaradı çok teşekkür ederimSayın @mertatakan_3838 .
Bilgisayarıma bağlı yazıcı olmadığından deneme şansım yok.
Kodu denediğimde, belgenin yazdırma kuyruğuna alındığını gördüğüm için sorun yaşanmayacağını düşünerek cevabı göndermiştim.
İsterseniz; kodun ilgili kısmını bir de aşağıdaki gibi değiştirerek deneyin. (5 saniye bekleme ekledim, süreyi değiştirerek de denersiniz)
VBA:Görüntülemek için giriş yapmanız gerekmektedir. (4 satır)
Merhaba Sayın @tahsinanarat .
Kodda ilgili satırı aşağıdaki gibi (.pdf ibaresinden önce çift tırnağın sağına YILDIZ karakteri eklenecek) değiştirerek dener misiniz?
Ayrıca If satırının sonundaki _ (alt tire) işaretini silip, wait satırından sonra da End If diye bir satır ekleyin.
.
Bu yüzden sadece web sitemizin çalışması yönelik temel çerezleri ve deneyiminizi geliştirmek için isteğe bağlı çerezleri kullanıyoruz.
Çerezler hakkında daha fazla bilgi görüntülemek ve tercihlerinizi yapılandırmak için tıklayın