Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    If Reports!CommercialDocuments_T3.Pages =  0  Then
        Exit Sub
    End If

    Static nReset As Long
    
    If nReset =  1  Then
        Section(acDetail).ForceNewPage =  0 
        nReset =  0 
    End If
    
    If CurrentRecord = Recordset.RecordCount -  1  Then
        Section(acDetail).ForceNewPage =  2 
        nReset =  1 
    End If
End Sub

    If LogicalPageHeight - nBottom < nHeightRequired Then
        If CurrentRecord = Recordset.RecordCount -  1  Then
            Section(acDetail).ForceNewPage =  2 
            nReset =  1 
        End If
    End If