Regular
Beiträge: 87
| Vielen Dank für euren Input. Ich habe es jetzt gelöst und zwar folgendermaßen:
Private bolFirst As Boolean
Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo fehler
If bolFirst = False Then Me.Detailbereich.ForceNewPage = Me!txt_posPagebreak
Exit Sub
fehler:
MsgBox "Fehler " & Err.Number & ": " & Err.Description, , "Bitte Fehlernummer und Beschreibung an den Administrator melden"
End Sub
Private Sub Detailbereich_Print(Cancel As Integer, PrintCount As Integer)
On Error GoTo fehler
If bolFirst = True Then
Me.Detailbereich.ForceNewPage = Me!txt_posPagebreak
bolFirst = False
End If
Exit Sub
fehler:
MsgBox "Fehler " & Err.Number & ": " & Err.Description, , "Bitte Fehlernummer und Beschreibung an den Administrator melden"
End Sub
Ich hatte nämlich festgestellt, dass das Event "Format" vor der ersten Position des jeweiligen Unterberichts einen Umbruch macht, und das Event "Print" nach der letzten Position einen Umbruch macht. Jetzt steuere ich über eine Boolean-Variable, in welchem Event der Seitenumbruch ausgelöst wird.
Viele Grüße
Andrea |
