使用Me.NextRecord = False 实现重复行报表 故障

我的数据库打印凭条需要一式二份，想做成每行打印二遍，（如果直接打印二份，浪费爱多纸）

Dim 行 As Integer
Private Sub Report_Open(Cancel As Integer)
行 = 0
End Sub

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
行 = 行 + 1
If Int(行 / 2) = 行 / 2 Then
Me.NextRecord = False
Else
Me.NextRecord = True
End If
End Sub

如果一页以内，在打印预览和打印看都没问题，每行数据打印二遍，单超过一页后就会出现二种错误，有时仅打印一遍，有时打印三遍

谢谢各位指教！

点击下载此附件