Suppress Header On Last Page

[coolscan3]

Is it Possible to suppress the header on the last page of a report.

Private Sub Report_Page()

If Me.Page = Me.Pages Then

Me.PageHeaderSection.Visible = False

Else

Me.PageHeaderSection.Visible = True

End If

End Sub

This code works but not until you have diplayed the last page and then moved away from the last page

 

[RoyVidar]

Try putting the code in the on format event of the Page Header.

Here's an attempt at a one.liner
[tt]Me.PageHeaderSection.Visible = not (me.page = me.pages)[/tt]

There's a report forum, where report questions are probably more appropriate (forum703)

Roy-Vidar

 

[coolscan3]

Thanks Roy That appears to work Fine