Office: (Office 2016) Seitenfuß nur auf der ersten Seite anzeigen

Hallo @all,

ich möchte in einem Report den Seitenfuß nur auf der ersten Seite anzeigen.
Nur unsichtbar setzen bedeutet allerdings, dass der Platz auf den folgenden Seiten einfach leer bleibt und ich möchte diesen Platz aber nutzen.
Ich habe jetzt versucht, im Format-Ereignis des Seitenfußes die Höhe des enthaltenen Textfeldes und anschließend die Höhe des Bereichs auf 0 zu setzen.

Das funktioniert ja auch soweit, aber nicht auf den richtigen Seiten :-(
Der Seitenfuß wird auf der 1.Seite korrekt angezeigt, auf der 2. ist er unsichtbar, aber der Bereich ist in der Höhe noch verbraucht, ab der 3. Seite passt es dann ....

Hat jemand eine Idee?
Danke im Voraus!

LG, Irmgard

:)

 

Hier ist etwas zum Thema zu finden (nutze die Eigenschaft Pages (Seiten) in einer Ereignisprozedur Beim Formatieren)
Gefunden habe ich das mit dem Suchbegriffen "Seitenfuß nur auf der ersten Seite Access" über Google im Netz. Ergo: demnächst erst einfach dort suchen und wenn nichts greifbares gefunden hier im Forum.

 

Hallo Elmar,

natürlich habe ich gegoogelt und auch gefunden ...

Und genau das mache ich ja ... aber es funktioniert erst ab der 3. Seite und nicht schon ab der 2. und das ist mein Problem ...

Wo liegt mein Denkfehler??

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
If Me.Page = 1 Then
Me.BezfFirmenInfo1.Height = 284
Me.BezfFirmenInfo2.Height = 1985
Me.BezfFirmenInfo1.Top = 113
Me.BezfFirmenInfo2.Top = 339
Me.PageFooterSection.Height = 2324
Me.PageFooterSection.visible = True
Else
Me.BezfFirmenInfo1.Height = 0
Me.BezfFirmenInfo2.Height = 0
Me.BezfFirmenInfo1.Top = 0
Me.BezfFirmenInfo2.Top = 0
Me.PageFooterSection.Height = 0
Me.PageFooterSection.visible = False
End If
End Sub

Leider werden meine Einrückungen im Code hier nicht angezeigt *rolleyes.gif*

LG, Irmgard

 

Was bitte ist Me.PageFooterSection?

 

Code:

Damit funktioniert es bei mir aber einwandfrei. Es werden die Seitenzahlen nur auf der 1. Seite von allen 6 Seiten angezeigt. Die Einrückungen werden nur angezeigt, wenn der VBA-Code in Code-Tags eingefügt wird.

 

Hallo Elmar,

Me.PageFooterSection ist der Name des Bereichs Seitenfuß ...

Und ich möchte den Bereich nicht nur visible / nicht visible machen, sondern die Höhe des gesamten Bereiches auf 0 setzen ab der 2.Seite

LG, Irmgard

 

Hab' rausbekommen: Der Code muss umziehen zum Ereignis "Bei Seite" des Berichtes. Dann klappte es.
Code:

 

Hallo Elmar,

Vielen Dank!
Trotzdem funktioniert das Ausblenden bei mir erst ab der 3.Seite.
Ich gebe am Ende der Report_Page zur Kontrolle eine msgbox mit den Werten des Seitenfußes aus, da wären die Werte richtig, der Seitenfuß ist visible = false ...
Er wird aber trotzdem angezeigt ... *confused.gif*
Ab der 3.Seite ist alles ok.

Hast du noch eine Idee?

LG, Irmgard

 

Hallo!

Wenn Report.Page ausgelöst wird, ist die erste Fußzeile bereits formatiert.

Ablauf:
PageHeaderSection_Format
Detail_Format
PageFooterSection_Format
Report_Page

=> Lass deinen Code als Reaktion auf das Format-Ereignis des Seitenkopfes laufen.

Oder:
Da die erste Seite wie im Entwurf bleiben kann, müsste eigentlich auch folgendes funktionieren:

Code:

LG
Josef

 

Hallo Josef!

Danke!!!!! Du bist mein Held des Tages! *Smilie
Jetzt ist mir mein Denkfehler klar geworden ...

LG, Irmgard

 

Hallo Josef,

jetzt habe ich doch noch ein kleines Problem ...
Wenn ich den Report aus der Vorschau drucken bzw. als PDF (acOutputReport - acFormatPDF) ausgeben möchte, ist auf der ersten Seite jetzt auch kein Seitenfuß mehr sichtbar ... ich denke weil der Seitenfuß als letzes ja unsichtbar war *rolleyes.gif*

LG, Irmgard

 

Du könntest den Code wie bereits erwähnt als Reaktion von PageHeaderSection.Format laufen lassen. Damit sollte es meiner Meinung nach nöglich sein, den Seitenfuß wieder einzublenden, wenn der Kopf auf der ersten Seite formatiert wird.

mfg
Josef

 

Danke nochmal, damit passt es *Smilie

LG, Irmgard

 

Hallo Irmgard, damit man nicht weiter versucht, Dir Ratschläge für ein erledigtes Problem zu geben,
nutze bitte diese Möglichkeit.

 

Hallo @all,

ich muss jetzt doch nochmal nachfragen.
Bei OutputTo wird das Ereignis PageHeaderSection_Format (und auch keine anderen ...) ja nicht nochmal aufgerufen, daher bleibt der Seitenfuß auf der ersten Seite im ausgegebenen PDF leer *frown.gif*

Kann mir da jemand bitte auf die Sprünge helfen??

LG, Irmgard