问题: 每页打印一定行数后自动分页 方法一: 加一个分页符,在报表的代码界面里面写入以下代码: 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 ...[ 查看全文 ]
Paging through a recordset by Daniel Adrian Skill level: Beginner First posted: Monday, October 09, 2000 Paging through a recordset When I want to develop an application with a lot of records to show, I make pages so I can easily navigate through the database and make the page look good and load quickly. This can be done very easily. Shall we start...[ 查看全文 ]