问题:
每页打印一定行数后自动分页
方法一:
加一个分页符,在报表的代码界面里面写入以下代码:
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
End Sub
方法二:
在报表的代码界面里面写入以下代码:
Option Compare Database
Dim row As Long
Private Sub 主体_Format(Cancel As Integer, FormatCount As Intege...[ 查看全文 ]