Script verändern für Zwischensumme
15.05.2005 11:30:45
Nicole
Ich bin neu hier in eurem Forum und möchte euch erst mal ein dickes Kompliment machen.
Ich konnte mir mit eurer Hilfe ein sehr hilfreiches Rechnungsformular erstellen.
Nun habe ich aber ein Problem mit einem Script welches ich nicht lösen kann.
Das nachfolgende Script setzt mir beim drucken automatisch Zwischensummen
und Überträge in Kopf und Fußzeile egal wie man den Seitenumbruch verschiebt.
Dies funktioniert wirklich sehr zuverlässig.
Leider ist es bei Rechnungen ja so, dass auf der letzten Seite keine Zwischensumme
mehr in der Fußzeile erscheinen darf.
Kann mir jemand das Script so abändern, daß nur auf der letzten Seite die
Fußzeile oder zumindest der Eintrag in der Fußzeile nicht gesetzt wird.
Ihr würdet mir wirklich sehr helfen !!
Gruß Nicole
Option Explicit
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, 6), Cells(varPB - 1, 6)))
With ActiveSheet.PageSetup
.LeftHeader = "Baudienste"
.CenterHeader = "Übertrag Seite: &P"
.RightHeader = Format(dSumB, "#,##0.00"" """)
.CenterFooter = "Zwischensumme:"
.RightFooter = 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, 6), Cells(iRowL, 6)))
With ActiveSheet.PageSetup
.CenterHeader = "Übertrag Seite: &P"
.RightHeader = Format(dSumB, "#,##0.00"" """)
.CenterFooter = "Zwischensumme:"
.RightFooter = Format(dSumA, "#,##0.00"" """)
End With
ActiveSheet.PrintOut From:=iPage, To:=iPage
End Sub