关于报表分页的困惑

我使用Access 2003 professional

前些日子在论坛里发现了报表分页的源码(如下)

Option Compare Database
Dim row As Long
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
row = row + 1
If Me.Section(acDetail).ForceNewPage = 1 Then
  Me.Section(acDetail).ForceNewPage = 0
Else
  If row Mod 3 = 0 Then
    Me.Section(acDetail).ForceNewPage = 1
    row = 0
  End If
End If
End Sub

我根据需要设定为每页3行

在预览中可以正确分页

但令人困惑的是有时明明只有2行或3行

打印出来时却会分成两页

和预览效果不一样

我发现其规律是第一次分2页

之后两次正确——只分1页

然后再2页
两次1页
……

我跟踪出来在预览之后真正打印时上面这个程序块是不运行的(加载预览页时才运行)

那么有规律的错误分页是如何造成的？