I have a report which must have only 15 lines or less per page. When there are more than 15 lines a page break occurs. Someone gave me this code a while ago:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Text15 Mod 15 = 0 Then
Reports![Employer contribution Report].Section(acDetail).ForceNewPage = 1
Else
Reports![Employer contribution Report].Section(acDetail).ForceNewPage = 0
End If
End Sub
If works well EXCEPT when there are exactly 30 records. It prints a blank page first, then the data…
Can you help???
Thanks!!!!!!!!!!!!!!!