Fazla Sayfa Yazma Problemi

[mc_exrem]

Merhabalar,

Ekteki KASA DEFTERİ sayfasında Bu Günü Yazdır butonu ile sadece o günün çıktılarını alıyorum ancak çıktı verirken o günün devamındaki boş sayfaları da yazdırıyor. Sayfa sonu önizleme çizgisiyle alt sayfayı kapatınca o günü eksik yazıyor. Eklediğim resimde görüldüğü gibi 3.sayfayı da yazıyor. Butondaki kodu nasıl düzeltebiliriz? Şimdiden teşekkürler.
İyi çalışmalar...

 

[YUSUF44]

Aşağıdaki makroyu kullanın:

Sub SuzYaz()
a = Sheets("     KASA DEFTERİ      ").Cells(Rows.Count, "F").End(3).Row
gun = Sheets("     KASA DEFTERİ      ").Cells(a, "F").Value
    Sheets("     KASA DEFTERİ      ").Range("$A$3:$F$" & a).AutoFilter Field:=6, Criteria1:=gun
    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$" & a
    
    Sheets("     KASA DEFTERİ      ").PrintOut Copies:=1, ActivePrinter:="Ne01: üzerindeki Samsung SCX-4x21 Series (USB003)", Collate:=True, _
        IgnorePrintAreas:=False
Sheets("     KASA DEFTERİ      ").Range("$A$3:$F$" & a).AutoFilter
Sheets("     KASA DEFTERİ      ").Range("$A$3:$F$" & a).AutoFilter
ActiveSheet.PageSetup.PrintArea = ""
End Sub

 

[mc_exrem]

Aşağıdaki makroyu kullanın:

Sub SuzYaz()
a = Sheets("     KASA DEFTERİ      ").Cells(Rows.Count, "F").End(3).Row
gun = Sheets("     KASA DEFTERİ      ").Cells(a, "F").Value
    Sheets("     KASA DEFTERİ      ").Range("$A$3:$F$" & a).AutoFilter Field:=6, Criteria1:=gun
    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$" & a
   
    Sheets("     KASA DEFTERİ      ").PrintOut Copies:=1, ActivePrinter:="Ne01: üzerindeki Samsung SCX-4x21 Series (USB003)", Collate:=True, _
        IgnorePrintAreas:=False
Sheets("     KASA DEFTERİ      ").Range("$A$3:$F$" & a).AutoFilter
Sheets("     KASA DEFTERİ      ").Range("$A$3:$F$" & a).AutoFilter
ActiveSheet.PageSetup.PrintArea = ""
End Sub

Çok çok teşekkür ederim. Sayfadaki gereksiz satırları da yazmıyor.

son hali sayfanın ekledim

 

[mc_exrem]

.

 

[YUSUF44]

Günaydın.
O nokta ne için acaba?

 

[mc_exrem]

Günaydın.
O nokta ne için acaba?

Günaydın
Kusura bakmayın. Bi hata aldım. Size bildirim yapmıştım. Sonra sayfa adının yanındaki boşlukları sildiğimi hatırladım. Eski haline getirince düzeldi. Vaktinizi almamak için silinmeyince noktaya çevirebildim.
Madem konu açıldı ???? sayfaların adını değişmemesi için sabitleyebilir miyiz?
Teşekkürler iyi bayramlar.