Your problem was interesting!
Suppose that your print pages are 52 rows long, add this code in
ThisWorkbook:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
For i = 1 To 3
a = i * 52
Cells(a, 2) = "=Sum(C1:C" & a & ")"
Next
End Sub
Of course you can add variations.
--
raypayette
------------------------------------------------------------------------
raypayette's Profile:
http://www.excelforum.com/member.php...o&userid=29569
View this thread:
http://www.excelforum.com/showthread...hreadid=561849