Using VBA to hide page footers problem.

[michaelh93]

Hi all,



My report header is at least two pages long. The first page is the cover sheet and the second and any subsequent pages are the report summary which is held in a subreport. Depending on the size of the database this subreport will expand appropriately.

There is no need for the footer on the cover page, as all the information given by the footer is already there and better presented. I have disabled the footer on the front page using the code:

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

If Me.Page = 1 Then
Me.PageFooterSection.Visible = False

Else
Me.PageFooterSection.Visible = True

End If
End Sub

This works, but it also hides the footer on all of the report header pages instead of just the first printed page. Is this an obvious oversite? How would i go about fixing this?

Thanks

[alcapps]

I would just go to the page footer section and set the property to visible = false then and you are covered..

[michaelh93]

But then it doesn't show up on any other page either. I want it to be on all pages except the first.

[alcapps]

I guess I am not understanding what you are trying to do.

you have a page header that takes two pages. So you are not using the page footer section

remember there is page footer section and a report footer section. Can you clarify what you are trying to do?

[alcapps]

If you try and use the Detail section on format your code should work.

[michaelh93]

I fixed it with.

Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
If Me.Page = 1 Then Cancel = True
End Sub

Thanks all.