her sayfanın sağ alt köşesinde toplam alma

[sturan77]

yaklaşık 10 sayfaya yakın bir listem var d sütununda birim fiyat e sütununda da tutar var ben her sayfanın sağ alt köşesinde alt toplam almak istiyorum son sayfa da da genel toplam nasıl yapabilirim

 

[xxrt]

her sayfanın sağ alt köşesinde

Yazdıracağınız kağıdın sağ alt köşesi olarak algıladım..

sağ alt köşesinde alt toplam almak

Alt toplamlarınızın D10 Hücresinde olduğunu varsayıyorum.
Hersayfanın altında sayfa toplamını bu kodlara göre geliştirin.


Sub d()
ActiveSheet.PageSetup.RightFooter = [d10]
ActiveWindow.SelectedSheets.PrintPreview
End Sub