Excel - mezisoučty na každé stránce

Někdo ze soudruhů z NDR se již tímto problémem zabýval. Tady je makro, které spuštěním vytiskne dokument a mezisoučet dá do zápatí stránky:

Sub Seitenumbruch()
   Dim varPB As Variant
   Dim iPage As Integer, iRowL As Integer
   Dim dSumA As Currency, dSumB As Currency
   iRowL = Cells(Rows.Count, 2).End(xlUp).Row
   iPage = 1
   Do Until IsError(varPB)
      varPB = ExecuteExcel4Macro( _
         "INDEX(GET.DOCUMENT(64)," & iPage & ")")
      If IsError(varPB) Then Exit Do
      dSumA = WorksheetFunction.Sum(Range( _
         Cells(1, 2), Cells(varPB - 1, 2)))
      With ActiveSheet.PageSetup
         .LeftHeader = "Zwischentotal:"
         .CenterHeader = Format(dSumB, "#,##0.00"" €""")
         .LeftFooter = "Zwischentotal:"
         .CenterFooter = Format(dSumA, "#,##0.00"" €""")
      End With
      ActiveSheet.PrintOut From:=iPage, To:=iPage
      dSumB = dSumA
      iPage = iPage + 1
   Loop
   dSumB = dSumA
   dSumA = WorksheetFunction.Sum(Range( _
      Cells(1, 2), Cells(iRowL, 2)))
   With ActiveSheet.PageSetup
      .LeftHeader = "Zwischentotal:"
      .CenterHeader = Format(dSumB, "#,##0.00"" €""")
      .LeftFooter = "Zwischentotal:"
      .CenterFooter = Format(dSumA, "#,##0.00"" €""")
   End With
   ActiveSheet.PrintOut From:=iPage, To:=iPage
End Sub

zdroj: 054099h.htm

alebo ručne
pre istotu si skopíruj list s tabuľkou
1.označím tabuľku
2.menu data-zoradit (podla stĺpca ktorý chcem spočítavať)
3.menu data-medzisúčty a označ zlom strany medzi skupiny
pri tlači ti vytlačí každú skupinu samostatne na list (možeš sa pozrieť do zobrazenia pred tlačou)

Prajem šťastný nový rok