Repeat Titles but Recalculate Formula in every page in Excel - excel

Question

I have created a worksheet with 40 pages. I know it's impossible to Repeat Bottom Cells when printing, so I just repeated the Top Rows (which contains a Sum formula) to make the sheet more compact. But the problem is, the sum formula in the top row computes only data from the first page. Ist possible to compute the data in every page when printing, somehow like what we could do in Microsoft Access' header?

Answer 1

This should do the trick:
Sub SubSpecialPrinting()
'Declarations.
Dim IntCounter01 As Integer
Dim IntPagesToBePrinted As Integer
Dim LngRow As Long
Dim RngRangeWithFormula As Range
Dim RngSumRange As Range
Dim StrExistingFormula As String
Dim WksWorksheet01 As Worksheet
'Setting variables.
Set RngRangeWithFormula = Range("I1")
Set RngSumRange = Range("A1:A10")
Set WksWorksheet01 = RngSumRange.Parent
StrExistingFormula = RngRangeWithFormula.Formula
IntPagesToBePrinted = ExecuteExcel4Macro("GET.DOCUMENT(50)")
'Disabling interruption in case of error.
On Error Resume Next
'Covering all the pages to be printed.
For IntCounter01 = 1 To IntPagesToBePrinted
'Setting the formula in RngRangeWithFormula.
RngRangeWithFormula.Value = Excel.WorksheetFunction.Sum(RngSumRange)
'Printing the single given page.
WksWorksheet01.PrintOut From:=IntCounter01, _
To:=IntCounter01, _
Copies:=1, _
Collate:=True, _
IgnorePrintAreas:=False
'Setting LngRow equal rows of the page just printed.
LngRow = WksWorksheet01.HPageBreaks(IntCounter01).Location.Row - 1 - LngRow
'Setting RngSumRange for the next page to be printed.
Set RngSumRange = RngSumRange.Offset(LngRow, 0)
Next
'Reactivating interruption in case of error.
On Error GoTo 0
'Reporting the pre-existing formula in RngRangeWithFormula.
RngRangeWithFormula.Formula = StrExistingFormula
End Sub
Change RngRangeWithFormula and RngSumRange value accordingly to your needs. The subroutine will print the pages of the print area one by one. Before printing, it will change the value of the RngRangeWithFormula with the sum of the values in RngSumRange; the latter will change for each pages, shifting down for as many rows as the given page contains. At the end of the subroutine, the RngRangeWithFormula will have the same formula it had before the subroutine was run.
Since one should call the subroutine in order to print the sheet correctly, i've spent some hours looking for a way to obtain the same result via a function. I've found how to know to which page a given cell belongs, but I haven't found a way to dynamically use the page number while printing. In the end i've accepted the subroutine as the way to go. Still in order to avoid the pointless printing of the "uncorrect" sheet and to make it easier for the user, i've written this extra code to be put in the workbook module:
Public PubBlnDedicatedPrinting As Boolean
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Checking if a dedicated printing is in process.
If PubBlnDedicatedPrinting = False Then
'Checking a specific sheet is active.
If ActiveSheet.Name = "INSERT YOUR SHEET NAME HERE" Then
'Asking if the user want to use the dedicated macro for printing.
Select Case MsgBox("Do you want to run the dedicated macro for printing?", vbYesNoCancel, "Dedicated macro")
Case Is = 6
'Setting PubBlnDedicatedPrinting value is set to true.
PubBlnDedicatedPrinting = True
'Running the dedicated macro.
Call SubSpecialPrinting
'Setting PubBlnDedicatedPrinting value is set to false.
PubBlnDedicatedPrinting = False
'Canceling any other printing procedure.
Cancel = True
Case Is = 7
'Proceeding with a classical printing.
Cancel = False
Case Is = 2
'Canceling any printing procedure.
Cancel = True
End Select
End If
End If
End Sub
To make it effective, you need to sobstitute the "INSERT YOUR SHEET NAME HERE" with the name of your sheet. Once the user will try to print the given sheet, Excel will ask him whether he wants to run the dedicated macro or to print it the classical way or neither or those.