Yazdırma

[vasifokur]

Ramazanın bu son gününde herkese hayırlı bayramlar dileklerimi sunarım. A hücresinde tarihler var. Bu sayfada belki de yüzlerce tarih ve bilgi olacaktır. Ben , istediğim iki tarih arasına denk gelen satırları yazılıp,diğerlerinin yazılmasını engellemek istiyorum. Yardımcı olmak isteyen arkadaşlar şimdiden çok teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelemisiniz.

Kullanılan kod;

Option Explicit
 
Sub YAZDIR()
    ActiveSheet.PageSetup.PrintArea = "$A:$B"
    Range("A1").AutoFilter Field:=1, Criteria1:=">=" & CLng(Range("E2")), _
    Operator:=xlAnd, Criteria2:="<=" & CLng(Range("E3"))
    ActiveWindow.SelectedSheets.PrintOut
    Range("A1").AutoFilter
End Sub

 

[vasifokur]

Sayın Korhan Bey ; verdiğiniz bilgi için teşekkür ederim.Örnek dosyada tarihler A hücresindeydi. Benim çalışmamda ise satır A hücresinde başlayıp M hücresine kadar gidiyor ve tarihler F hücresinde.Tarih aralığı ise O2 ve O3 hücresinde .Buna bir türlü uyarlayamadım. Bunun için de bir yardım istesem ?

 

[vasifokur]

Sayın Korhan Bey ; nerede hata yaptığımı buldum. Tekrar teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Eklemiş olduğum dosyaya bir eklenti yaptım. Yazdırma işlemi tamamlandıktan sonra süzme işlemi iptal edilmektedir. Lütfen dosyanın son halini kullanınız.

 

[Civan Jack]

Bu örnek çok işime yarayacak teşekkürler korhan bey