Druckvorschau

Sub p()
Dim varPB As Variant
Dim iPage As Integer, iRowL As Integer
Dim dSumA As Currency, dSumB As Currency
iRowL = Cells(Rows.Count, 1).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, 1), Cells(varPB - 1, 1)))
With ActiveSheet.PageSetup
.CenterHeader = Format(dSumB, "#,##0.00")
.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, 1), Cells(iRowL, 1)))
With ActiveSheet.PageSetup
.CenterHeader = Format(dSumB, "#,##0.00")
.CenterFooter = Format(dSumA, "#,##0.00")
End With
ActiveSheet.PrintOut From:=iPage, To:=iPage
End Sub