问题: 每页打印一定行数后自动分页 方法一: 加一个分页符,在报表的代码界面里面写入以下代码: Option Compare Database Dim row As Long Dim RowsInPage As Integer Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer) RowsInPage = 7 row = row + 1 If row = RowsInPage Then Me.PageBreak18.Visible = True row = -1 Else Me.PageBreak18.Visible = False End If ...[ 查看全文 ]