Page Footer on 1st page only

  • Thread starter Thread starter Guest
  • Start date Start date
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
 
oh, duh - that makes a lot more sense that setting the section's Visible
property! <g and bow>


fredg said:
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
 
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!
 
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
 
It didn't work but thanks for you help anyway!

tina said:
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
 
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
 
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! :)
 
Back
Top