Yazdırma Alanı Belirlemede Toplamı Görmemesi

[htsumer]

Yazdırma alanı belirleyen

Sub Yazdir()
  Dim sat As Long
    
    sat = Cells(Rows.Count, "d").End(xlUp).Row
    ActiveSheet.PageSetup.PrintArea = "$c$1:$ı$" & sat
    ActiveWindow.SelectedSheets.PrintPreview

End Sub

Kod ile sayfaya girilen veriler kadar alanı yazdırıyor. Fakat 100 satır sonundaki Toplam satırını yazdırma alanında göstermiyor.
Yani 49 satırı alırken o satrıların toplamını da aynı sayfada almasını istiyorum.

Örnek dosya ektedir.. Teşekkürler

 

[htsumer]

Yukarıdaki mantığa uygun alternatifde olabilir. Filitre gibi..

 

[gurbuzmeydan08]

kusura bakma sayın htsumer senin sorundan soru soruyorum
üstadlarım yukarıdakı makroyu d sütününda sadece "yazdır" yazan satırlara yazdırma alanı belirleyebilirmiyiz .

 

[merakli_72]

selam,
ekteki gibi bir çözüm işinize yarar mı?

 

[gurbuzmeydan08]

selam,
ekteki gibi bir çözüm işinize yarar mı?

altım üyelik yok hocam indiremiyom

 

[merakli_72]

sayın gurbuz bey
cevap htsumer beyin soruna idi

 

[htsumer]

sayın gurbuz bey
cevap htsumer beyin soruna idi

Çok teşekkür ederim tam istediğim gibi olmuş elinize sağlık..