Eliminate Report Footer Conditionally

D

Dan

How do I keep the footer from printing as a blank page when I have the footer
section visible property set to No, but conditionally set it to True as in
the following:

Private Sub ReportFooter_Format(Cancel As Integer, FormatCount As Integer)
If Me.txtCountChains > 1 Then Me.ReportFooter.Visible = True
End Sub

Whenever txtCountChains = 1, I want to hide the footer, but don't want a
blank page either. Since there are controls in the footer, I can't change the
footer height to 0.
 
Top