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

[NADİR YILDIZ]

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

 

[NADİR YILDIZ]

bu sorduğumun çözümü varmıdır

 

[Zeki Gürsoy]

Burada esas konu bakınız Yazdırma komutu... Öteye taşıma/kopyalama işini sanırım halledersiniz...

 

[NADİR YILDIZ]

Teşekkürler zeki bey şuan müsait değilim bakıp durumu size yazarım

iyi çalışmalar

 

[adoen]

Merhaba Arkadaşlar yeni bir konu açmamak adına meramımı aşağıya ekliyorum yardımcı olabilir misiniz ?

Excel dosyasının olduğu klasördeki Pdf dosyaları mevcut bu dosyaların hepsini makro ile yazdırmak istiyorum sitede araştırdım genelde klasör seçimi yapılarak yazdırma yapılan versiyonları mevcut ama ben direk excelin bulunduğu klasördeki pdf dosyalarını yazdırmak istiyorum.
Yardımlarınız için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Benim sistemimde pdf görüntüleyici olarak Foxit var bu sebeple aşağıdaki satırda onu kullandım. Siz ne kullanıyorsanız onu yazınız.

AppActivate "Foxit", True

Option Explicit

Sub Aktif_Dosyanin_Bulundugu_Klasordeki_Pdf_Dosyalarini_Yazdir()
    Dim Yol As String, Pdf_Belgesi As String
    
    Application.ScreenUpdating = False
    
    Yol = ThisWorkbook.Path & Application.PathSeparator
    
    Pdf_Belgesi = Dir(Yol & "*.pdf")
    
    While Pdf_Belgesi <> ""
        CreateObject("Shell.Application").Namespace(0).ParseName(Yol & Pdf_Belgesi).InvokeVerb ("Print")
        Application.Wait Now + TimeSerial(0, 0, 3)
        Pdf_Belgesi = Dir
    Wend
    
    On Error GoTo 10
    AppActivate "Foxit", True
    SendKeys "%{F4}", True
    Application.Wait Now + TimeSerial(0, 0, 2)
    
10  Application.ScreenUpdating = True
    
    MsgBox "PDF belgeleri yazıcıya gönderilmiştir."
End Sub

 

[adoen]

Deneyiniz.

Benim sistemimde pdf görüntüleyici olarak Foxit var bu sebeple aşağıdaki satırda onu kullandım. Siz ne kullanıyorsanız onu yazınız.

AppActivate "Foxit", True

Option Explicit

Sub Aktif_Dosyanin_Bulundugu_Klasordeki_Pdf_Dosyalarini_Yazdir()
    Dim Yol As String, Pdf_Belgesi As String
   
    Application.ScreenUpdating = False
   
    Yol = ThisWorkbook.Path & Application.PathSeparator
   
    Pdf_Belgesi = Dir(Yol & "*.pdf")
   
    While Pdf_Belgesi <> ""
        CreateObject("Shell.Application").Namespace(0).ParseName(Yol & Pdf_Belgesi).InvokeVerb ("Print")
        Application.Wait Now + TimeSerial(0, 0, 3)
        Pdf_Belgesi = Dir
    Wend
   
    On Error GoTo 10
    AppActivate "Foxit", True
    SendKeys "%{F4}", True
    Application.Wait Now + TimeSerial(0, 0, 2)
   
10  Application.ScreenUpdating = True
   
    MsgBox "PDF belgeleri yazıcıya gönderilmiştir."
End Sub

Merhaba Korhan Bey kodlar işimi gördü çok teşekkür ederim.
ALLAH Razı olsun.