Page Footer on 1st page only

[Guest]

Is there a way to print the page footer only on the 1st page of a multi page
report?

 

[tina]

try adding the following to the report's PageFooterSection's OnFormat event
procedure, as


Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As
Integer)

Me.PageFooterSection.Visible = (Me.Page = 1)

End Sub

hth

 

[fredg]

Is there a way to print the page footer only on the 1st page of a multi page
report?

Code the Page footer Format event:
Cancel = [Page]>1

 

[tina]

oh, duh - that makes a lot more sense that setting the section's Visible
property! <g and bow>

Is there a way to print the page footer only on the 1st page of a multi page
report?

Code the Page footer Format event:
Cancel = [Page]>1

 

[Guest]

I'm sorry, I should have been more clear in my question. I have a report
where the Detail section of each group may/may not run onto a 2nd page. If
it does, that is when I need the page footer to print on the 1st page only.
Does this make sense? Again, I apologize for the confusion and appreciate any
assistance!

 

[tina]

okay. try the following procedure in the PageFooterSection's OnFormat
property, as

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As
Integer)

Cancel = Me.Detail.HasContinued

End Sub

hth

 

[Guest]

It didn't work but thanks for you help anyway!

okay. try the following procedure in the PageFooterSection's OnFormat
property, as

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As
Integer)

Cancel = Me.Detail.HasContinued

End Sub

hth

 

[tina]

okay, one last try. i think we got it this time.

in report design view, add an unbound textbox control to the *group* header
or footer section. name the control txtCount. in the Properties box, set the
ControlSource property to

=1

set the Visible property to No, and set the RunningSum property to
OverGroup. add the following procedure to the PageFooterSection's OnFormat
event, as

Private Sub PageFooterSection_Format(Cancel As Integer, _
FormatCount As Integer)

Static i As Integer
Dim iCur As Integer

iCur = Me!txtCount
Cancel = (iCur = i)
i = Me!txtCount

End Sub

hth

 

[Guest]

You are brilliant and have saved my life! Thanks for sticking with it!

 

[tina]

i was afraid you'd given up and abandoned the thread. i'm so glad you saw my
last post, and that it worked for you - you're very welcome!