Hi,

I am trying to force a new page on a report called MandateNewPage3R after 3 records with the following code.  The report always lists all the records (only have 4 records in the table)

My problem is the code never seems to run.  I have placed breakpoints on the if statements and the Report Statement but the code doesn't stop.  What am I doing wrong?

Option Compare Database
Option Explicit

Dim vCounter As Integer

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If vCounter = 2 Then
        Reports![MandateNewPage3R].Section(acDetail).ForceNewPage = 1
        vCounter = 0
    Else
        Reports![MandateNewPage3R].Section(acDetail).ForceNewPage = 0
    End If
    
    vCounter = vCounter + 1
End Sub

Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)
    vCounter = 1
End Sub

Regards and Thx in advance.

Ron de Boer