sayfada alt toplam

[oguncu]

merhaba,

yüzlerce satırlık listeyi yazdırırken her sayfanın toplamını görmek istiyorum.
çözümü var mıdır acaba?

 

[hamitcan]

Bir şeyler yaptım, eksikleri yarın tamamlarız.

Sub AltToplam()
b = 5
For i = 5 To 141 Step 27
ActiveSheet.PageSetup.PrintArea = Range(Cells(i, 1), Cells(i + 22, "j")).Address
ActiveSheet.PageSetup.CenterFooter = "Miktar: " & WorksheetFunction.Sum(Range(Cells(i, "h"), Cells(i + 22, "h"))) & Chr(10) & _
                           "Tutar: " & WorksheetFunction.Sum(Range(Cells(i, "i"), Cells(i + 22, "i"))) & Chr(10) & _
                           "Tescil Ücreti: " & WorksheetFunction.Sum(Range(Cells(i, "j"), Cells(i + 22, "j")))
ActiveSheet.PrintPreview
i = i - 4
Next
End Sub