PDA

Vollständige Version anzeigen : Übertrag in Rechnungen


PeterSi
23.10.2001, 10:13
Hallo,

wie kann ich in einer mehrseitigen Rechnung den Übertrag berechnen der dann am Ende und am Anfang der darauffolgenden Seite auftauchen soll?

Danke!
Gruß
Torsten

hermi
23.10.2001, 10:32
servusla Thorsten,

bei der FAQ 5.7 http://www.donkarl.com/
steht die Lösung

hth hermi

Siegfried Venjakob
23.10.2001, 10:35
Mit dieser Funktion hat´s bei mir geklappt !
Wichtig ist jedoch, dass im Seitenfuß ein unsichtbares Textfeld [Seiten] vorhanden ist.
Außerdem sollte mit Visible auf der letzten Seite der Übertrag im Seitenfuß ausgeblendet werden.

Es Differenzen zwischen
Beim Formatieren
Beim Drucken

ausprobieren und manuell nachrechnen.

Meine Einstellung ist "BEIM DRUCKEN"

Option Compare Database
Option Explicit
Dim AktSum As Double

Private Function AktSumme() As Double

AktSumme = AktSum

End Function
----------------------------------
Private Sub Seitenfußbereich_Format(Cancel As Integer, FormatCount As Integer)
If Page = Pages Then
Me.ÜbertragSF.Visible = False
Me.ÜbertragSF_Bezeichnungsfeld.Visible = False
Else
Me.ÜbertragSF.Visible = True
Me.ÜbertragSF_Bezeichnungsfeld.Visible = True
End If
End Sub
------------------------------
Private Sub Detailbereich_Print(Cancel As Integer, PrintCount As Integer)
AktSum = AktSum + Zeilensumme
End Sub

Pfüati !