Berichte mit Anlagen
Karl Donaubauer
Gesendet: 17.11.11 14:53
Betreff: RE: Berichte mit Anlagen



Elite Veteran

Beiträge: 727
50010010025
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
*********
Internationale Access-Konferenz: http://AccessDevCon.com
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
Top of the page Bottom of the page