Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me.txtCounter Mod 200 = 0 Then
Me.PageBreakX.Visible = True
Else
Me.PageBreakX.Visible = False
End If
End Sub
Private Sub Report_Open(Cancel As Integer)
Me.PageBreakX.Visible = False
End Sub