access报表分类一次性打印

mizhefeng　发表于：2009-02-12 09:27:47 　

复制

我的access文档中，“校对表”的报表出现了两个问题：1.不能显示所有班级的报表（个别班级不能显示）；2.班级的姓名与班级不能完全匹配。请各位专家帮忙看看？

Top

竹笛发表于：2009-02-12 12:14:46

上传你的附件，不然如何看呀？

Top

mizhefeng 发表于：2009-02-12 13:42:51

不好意思，附件忘传了，先传上

点击下载此附件

Top

蒋元根发表于：2009-02-12 15:31:19

给你修改了一下,不知道是否符合你的要求.

点击下载此附件

Top

mizhefeng 发表于：2009-02-12 19:13:03

不好意思，我的意图是每个班级一页。另外最好请说明设置的步骤。谢谢！

Top

mizhefeng 发表于：2009-02-12 19:30:31

问题：

每页打印一定行数后自动分页

方法一：

加一个分页符，在报表的代码界面里面写入以下代码：

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 Integer)
    row = row + 1
    If Me.Section(acDetail).ForceNewPage = 1 Then
        Me.Section(acDetail).ForceNewPage = 0
    Else
        If row Mod 7 = 0 Then
            Me.Section(acDetail).ForceNewPage = 1
            row = 0
        End If
    End If
End Sub

例子下载：
http://access911.net/down/ForceNewPage.rar

点击下载此附件

Top

mizhefeng 发表于：2009-02-12 19:31:37

现在的问题是怎样去掉最后的一页（最后一页是空白页）

Top

蒋元根发表于：2009-02-12 19:46:02

你好,改了一下,不知道是否符合你的要求.设置的步骤:1.进入报表设计视图,点击"排序与分组",将"班级"分组与排序,将"班级"放入班级的页眉.见窗体1;2:将工具箱中间分页符放入班级的页脚.见窗体2.

点击下载此附件

Top

mizhefeng 发表于：2009-02-12 21:09:17

hotgh2003　(等级: 贵宾积分:146 城市:上海) 发表于2009-2-12 19:46:02　