Printing subtotal at the end of each page

[apgmin]

I have a excel sheet which has the entries of all donation receipts from donors for our charitable organisation.
It has columns A to N and rows till 956
Row 1 is the header ( like receipt No. donor name, donation mode and amount)
Row 2 is the opening balance carried forward from the last financial year ( the bank balance and cash in hand ) So till the donation mode column it is merged and only the amount column has the entry
Row 3 is the grand total for all the entries from Row 4 to Row 956. Again in this till the donation mode column it is merged
the entry of the first donor starts from row 4 and so on till row 956

sl. No. | Receipt No. | Donor name | mode | amount |
...........................balance from last year |56345 |
...........................................grand total | 1562845|
1........| RW/14-001 | SMITH | cash | 520 |
2 | RW/14-002 | WILLIAMS |cheque| 1000 |

I now want to print the sheets, I have used the print titles for row 1 to row 3. I have also used fit columns to a page

What I need is that at the end of each page I get a subtotal of that page's amount ( I am getting the cumulative amount ie. the grand total at the top due to the print titles ) as a footer or as a last row entry

 

[mole999]

maybe the easiest way is to look at the page break window, decide where the last row appears and place your sub there

 

[oldbrewer]

put the sub tot as a last row and set print areas to include it

or better add the subtotals somewhere off screen and put them in footers

 

[oldbrewer]

a small macro to set the first page with sub tots as print area, print it, then set next page

eg rows 1 to 5 print then rows 6 to 10 print


Range("A1:A5").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$A$5"
End Sub

you need code to change a1;a5 to a6:a10

somebody on here will do that for you