Elite Veteran
Beiträge: 866
Ort: Wien | Rolf - 17.11.11
...
Je Empfänger soll auf Vor- und Rückseite gedruckt werden. Die Rückseite (= die Seite mit der geraden Seitenzahl) soll keinen Seitenfuß enthalten.
Das hat nicht geklappt in "Seitenfuß_Format":
booGerade = IIf(Me.Page Mod 2 = 0, True, False)
If booGerade Then
Seitenfuß.Visible = False
Else
Seitenfuß.Visible = True 'ehemals true
End If
Es wird nur die erste Seite mit Seitenfuß versehen, alle nachfolgenden (S. 2 bis 8000) enthalten keinen!
Im Format-Ereignis ist es etwas unpassend, Visible zu ändern. Versuch mal statt deines ganzen Codes, diese 1 Zeile, die das Format-Ereignis für gerade Seiten abbricht und damit den Bereich unsichtbar schaltet:
Cancel = (Me.Page Mod 2 = 0)
----- Servus
Karl
*********
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek - Jetzt anmelden für 19./20.10. in Nürnberg
Access DevCon Vienna: https://www.donkarl.com/devcon
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy... |