• Web sitemizin SORU-CEVAP bölümünde dosya yüklemek ve dosya indirmek ÜCRETSİZ'dir.
    Gizlilik kapsamında, sadece site yöneticilerimizin ve üyenin kendisinin görebileceği ÜCRETLİ ÖZEL DESTEK alanımız mevcuttur.

Soru Klasör içindeki PDF leri toplu yazdırma

NADİR YILDIZ

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2013
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

arkadaşlar merhaba
uygulanabilirliği varmı bilmiyorum ancak yapmak istediklerimi anlatayım

dökülecekler klasörünün içinde 3 adet daha klasör var
1-gelen pdf dosyaları
2-yazdırılan pdf dosyaları
3-yazdırılacak pdf dosyaları

sistemden aldığımız çok sayıda faturayı gelen pdf klasörünün içine indiriyoruz.
burada yapmak istediğim.
gelen pdf dosyalarını toplu yazdırmak istiyorum ancak aşağıdaki gibi bir yol izlemek mümkün mü
1-gelen pdf dosyasındakileri yazdırılacak pdf dosyaları klasörüne aktarmak.
ancak aktarılanları gelen pdf dosyasından silinmesini istemiyorum.burada kalacaklar

2-yazdırılacak klasöründeki pdf dosyalarını makro ile toplu olarak yazdırmak

3-yazdırılacak pdf dosyalarında yazdırılmış olanlarıda yazdırılan pdf dosyaları klasörüne aktarmak istiyorum.aktarılanların silinmesi

yani kısacası çok sayıda faturayı gelenden yazdırılacağa aktarıp yazdırmak yazdırılacaktakileri yazdırıldıktan sonra yazdırılanlar klasörüne aktarmak.gelen pdf klasöründekiler ise kalacak aktarımla birlikte silinmeyecek

teşekkürler

iyi çalışmalar
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ekli dosyalar (Dosyaları İndirmek İçin Beğenmeniz Gerekir)

  • DÖKÜLECEKLER.rar
    980.9 KB · Görüntüleme: 4

NADİR YILDIZ

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2013
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

sorduğum sorunun uygulanabilirliği varmıdır
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ömer BARAN

Kurucu
Yönetici
Kurucu
Versiyon
  1. Excel 2013
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Muhtemelen olur, bilgisayarda değilim.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

NADİR YILDIZ

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2013
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

üstad müsait olduğunuzda zaman ayırırsanız memnun olurum

teşekkürler
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ömer BARAN

Kurucu
Yönetici
Kurucu
Versiyon
  1. Excel 2013
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Tekrar merhabalar @NADİR YILDIZ .

GELEN klasöründekilerin tümünü tek adımda mı yazdırmak ve kopyalamak istiyorsunuz,
yoksa GÖZAT gibi bir ekranda pdf dosyasını seçerek mi?

.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

NADİR YILDIZ

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2013
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Ömer bey

haftalık olarak ft ları gelen klasörüne indiriyoruz.
örneğin 01.01.2021 ile 07.01.2021 tarihleri arasındaki indiriyoruz.
ertesi hafta bu sefer 01.01.21 ile 15.01.2021 arasındaki indiriyoruz.
aynı olanları atla diyerek bu klasöre indiriyoruz.bu böyle devam ediyor.

burada istediğim
daha önce yazdırılmayan ftlar hangisi ise bunları yazdırılacak ft klasörüne alarak yazdırılacak ft klasörü üzerinden yazdırmak
yazılan ft larıda yazılanlar klasörüne aktarmak
gelen klasörüne indirilen ft lar ben silmedikçe kalsın silinmesinki tamamını görüp takip edebileyim

gelen klasör sabit olup yazdırılmayanları yazılacak klasörüne aktarsın
yazdırılan ft larda yazdırılan klasörüne aktarım yapsın ki yazdırılmayanları takip edebiliyim

gözat gibi bir ekran ile uğraşmak değil direkt döküm alırsa daha iyi olur

teşekkürler
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ömer BARAN

Kurucu
Yönetici
Kurucu
Versiyon
  1. Excel 2013
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Bu arada bilgisayarınızda Acrobat32.exe'nin tam konumu nedir onu yazın.

İşte diyorum ki;
-- GELEN dizini taranıp, YAZDIRILAN dizininde olmayanların TÜMÜ tek komutla yazdırılsa,
-- arada YAZDIRILACAK dizini hiç olmasa.
daha anlamlı değil mi?

Bence aradaki YAZDIRILACAK dizininin bir işlevi yok.
Sadece belge kopyalarının bulunduğu bir dizin olmaktan öte bir işlevi kalmıyor.
Bilgisayarda alan kaplamaktan başka bir şeye yaramıyor gibi görünüyor.

.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

NADİR YILDIZ

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2013
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

üstad dediğiniz gibi yaparsanız daha mantıklı

"Bu arada bilgisayarınızda Acrobat32.exe'nin tam konumu nedir onu yazın."
demişsiniz kusura bakmayın burada ne istediğinizi anlayamadım.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ömer BARAN

Kurucu
Yönetici
Kurucu
Versiyon
  1. Excel 2013
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Neticede ACROBAT programı belgeleri açacak ve yazıcıya gönderecek.
Bunun için ACROBAT.EXE nin bulunduğu dizinin (yol) bilinmesi gerekiyor.

Mesela benim bilgisayarımdaki yol bilgisi şöyle:
"C:\Program Files\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"

Sizin bilgisayarınızdaki yol bilgisi nedir? Kodlamada gerekecek çünkü.

.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

NADİR YILDIZ

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2013
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

C:\Program Files (x86)\Adobe\Acrobat DC\Acrobat
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ömer BARAN

Kurucu
Yönetici
Kurucu
Versiyon
  1. Excel 2013
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Sonu exe mi yoksa exe olan bu klasörün içinde mi?
Acrobat.exe yi bulup sağ tıklayın ve özelliklere bakınca tam yolu görebilirsinuz.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

NADİR YILDIZ

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2013
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

"C:\Program Files (x86)\Adobe\Acrobat DC\Acrobat\Acrobat.exe"

masa üstünde ömer bey klasörde değil
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ömer BARAN

Kurucu
Yönetici
Kurucu
Versiyon
  1. Excel 2013
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Belge ekte Sayın @NADİR YILDIZ .

Belgeyi, GELEN.... , YAZDIRILACAK..., YAZDIRILAN..... klasörlerinin içinde bulunduğu DÖKÜLECEKLER klasörüne kaydedin.
Kod GELEN klasöründe olup, YAZDIRILAN klasöründe olmayanları, yazıcıya gönderir ve bir kopyasını YAZDIRILAN dizinine kaydeder.

Koddaki;
-- pdfyol = ...... kısmının (masaüstünde gibi görsenizde Program Files dizinindeki gerçek YOL bilgisi),
-- tum = ..... kısmının (indirdiğiniz tüm PDF belgelerinin bulunduğu klasörün yol bilgisi),
-- eski = ...... kısmının (yazdırılan PDF belgelerinin bulunduğu klasörün yol bilgisi),
doğru yazıldığından emin olun.

İşlem bittiğinde ACROBAT penceresini bir kez kapatmanız gerekecek.

Oluşturulan kod aşağıda gösterilmiştir.

C++:
Option Explicit

Sub YAZDIRILMAYANLARI_YAZDIR_PDF_BRN()
Dim eskiler As Variant
Dim ds As Object, bu As Workbook, tum$, eski$, yeni$, ara$, bul$, pdfyol$
Dim say As Integer, varXD As Integer, s As Integer, XD As Integer

Set bu = ThisWorkbook
bu.ActiveSheet.Range("A2:A" & Rows.Count).ClearContents
Application.ScreenUpdating = False

pdfyol = "C:\Program Files\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
tum = "C:\Users\admin\Downloads\DÖKÜLECEKLER\GELEN PDF DOSYALARI\"
eski = "C:\Users\admin\Downloads\DÖKÜLECEKLER\YAZDIRILAN PDF DOSYALARI\"

Set ds = CreateObject("Scripting.FileSystemObject")
ReDim eskiler(1 To 1)

bul = Dir(eski & "*.pdf", vbDirectory)
Do While bul <> ""
    If Right(bul, 4) = ".pdf" Then: say = say + 1: ReDim Preserve eskiler(1 To say): eskiler(say) = bul
    bul = Dir: Loop
ara = Dir(tum & "*.pdf", vbDirectory)
Do While ara <> ""
    If Right(ara, 4) = ".pdf" Then
        varXD = 0
        For s = 1 To say
            If eskiler(s) = ara Then: varXD = varXD + 1: Exit For
        Next
        If varXD = 0 Then
            CreateObject("Shell.Application").Namespace(0).ParseName(tum & ara).InvokeVerb ("Print")
            Application.Wait Now() + TimeSerial(0, 0, 1)
            ds.copyFile Source:=tum & ara, Destination:=eski: XD = XD + 1
            bu.ActiveSheet.Cells(bu.ActiveSheet.Cells(Rows.Count, 1).End(3).Row + 1, 1) = ara
        End If: End If: ara = Dir: Loop
Application.ScreenUpdating = True
Workbooks(bu.Name).Activate
ThisWorkbook.ActiveSheet.[A1].Activate

If XD > 0 Then: Shell "taskkill /F /IM AcroRd32.exe": MsgBox XD & " adet dosya için işlem yapıldı."
If XD = 0 Then: MsgBox "Tüm dosyalar yazdırılmış, işlem yapılmadı."

End Sub
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ekli dosyalar (Dosyaları İndirmek İçin Beğenmeniz Gerekir)

  • BRN_NADIR_ARICA_PDF_YAZDIR_KOPYALA2.xlsm
    27.3 KB · Görüntüleme: 4

NADİR YILDIZ

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2013
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Ömer bey ömncelikle teşekkür ediyorum.
dediklerinizi yaptım.
excel kaydettiğim dosyanın ekran görüntüsü ektedir.
ancak yazdır butonuna bastığımdaki ikaz veren ekran görüntüsünüde ektedir.
bir yerde yanlış yapıyorum ama nerede

iyi çalışmalar
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ekli dosyalar (Dosyaları İndirmek İçin Beğenmeniz Gerekir)

  • Adsız 1.png
    Adsız 1.png
    136.6 KB · Görüntüleme: 5
  • Adsız 2.png
    Adsız 2.png
    135.2 KB · Görüntüleme: 5

Ömer BARAN

Kurucu
Yönetici
Kurucu
Versiyon
  1. Excel 2013
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

bu.ActiveSheet.Range("A2:A" & Rows.Count).ClearContents
olacaktı, yazarken hata yapmışım demekki.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

NADİR YILDIZ

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2013
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

ömer bey bu mesajı veriyor
yazdırmıyor yazdırılanlar klasörüne aktarmıyor.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ekli dosyalar (Dosyaları İndirmek İçin Beğenmeniz Gerekir)

  • Adsız 01.png
    Adsız 01.png
    149.1 KB · Görüntüleme: 2

Ömer BARAN

Kurucu
Yönetici
Kurucu
Versiyon
  1. Excel 2013
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

YAZDIRILACAK dizini kullanılmıyor önce onu hatırlatayım.
TÜM klasöründe olup, YAZDIRILAN kasöründe olmayanlar yazıcıya gönderilir.

Koddaki YOL bilgilerinin doğru yazıldığından emin misiniz?

Tüm pdflerin bulunduğu klasörde olup, YAZDIRILAN klasöründe olmayan belge varsa
bu uyarıyı almazsınız (tüm pdfler yazdırılmış, yani YAZDIRILAN klasöründe olmayan belge yok demek).

YAZDIRILAN klasöründen birkaç belgeyi silin veya adlarını değiştirin. Kodu sonra tekrar çalıştırın.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

NADİR YILDIZ

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2013
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

yol bilgilerini tam olarak kontrol edeyim o zaman ömer bey
ona göre size geri dönüş yaparım

iyi çalışmalar
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ömer BARAN

Kurucu
Yönetici
Kurucu
Versiyon
  1. Excel 2013
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Gönderdiğim belge ve eklediğim kodda Acrobat...exe kısmındaki EXE dosyanın adı benim bilgisayırımda AcroRd32.exe idi.
Siz bence bunu da bir kontrol edin. Prograkın, ProgramFiles dizinindeki UYGULAMA EXE dosyasını bulup tam adına bakacaksınız.

Ayrıca işlem sonrasında 1 kez acrobat programını elle kapatmanız gerektiğini yazmıştım.
Kodun başındaki pdfyol = .... kısmındaki EXE neyse aynı adı kullanarak aşağıdaki kod satırına koyu renk yaptığım kısmı eklerseniz elle kapatmaya da gerek kalmaz.

Rich (BB code):
If XD > 0 Then: Shell "taskkill /F /IM AcroRd32.exe" : MsgBox XD & " adet dosya için işlem yapıldı."

.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

NADİR YILDIZ

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2013
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

tamam ömer bey bakacağım.teşekkürler
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Üst