Sayfa toplamı almak

[mars2]

İyi Günler;
Excelde hazırladığım tablo bulunmaktadır. Bunun D sutununda ödeme tutarları bulunmakta olup yazdırırken her sayfanın sonunda o sayfanın toplamını aldırmak istiyorum. Bu sayfa toplamlarını yazıcıdan çıkarken de görülmesini istemekteyim.
Konu hakkında yardımlarınız beklemekteyim.

 

[suleyman242]

İyi Günler;
Excelde hazırladığım tablo bulunmaktadır. Bunun D sutununda ödeme tutarları bulunmakta olup yazdırırken her sayfanın sonunda o sayfanın toplamını aldırmak istiyorum. Bu sayfa toplamlarını yazıcıdan çıkarken de görülmesini istemekteyim.
Konu hakkında yardımlarınız beklemekteyim.

İstediğin şekil böyle bir şeymi ? dosya ekte

 

[mars2]

Sayın süleyman242;
İlgine teşekkürler,
tablomun genel toplamı aşağıdaki makro ile topladığımdan, sayfa sonlarınıdaki rakamları tekrar toplayacağından sonuç yanlış çıkacaktır.

[D171].Value = WorksheetFunction.Sum(Range("d8:d170"))

sayfa sonlarını ister böyle, ya da yazıcıdan çıkarken de makro ile sayfa sonuna yeni satır eklenip toplamı alabilir, bu toplam genel toplama etki etmeden