Private Sub Detail_Format() Static RNumber As LongRNumber = RNumber + 1If RNumber = 6 Then 'If there are 6 records on the page 'it will add a new page and reset the counter Detail.NewPage = ddNPAfter RNumber = 0 Else Detail.NewPage = ddNPNone 'This turns off the Add New page End If
Static RNumber As LongRNumber = RNumber + 1If RNumber = 6 Then 'If there are 6 records on the page
'it will add a new page and reset the counter
Detail.NewPage = ddNPAfter
RNumber = 0
Else
Detail.NewPage = ddNPNone 'This turns off the Add New page
End If
End Sub