每页多个记录的MS Access报告

时间:2014-10-31 21:40:23

标签: vba ms-access

我对VBA编程很新,我尝试在MS Access中创建报告。但是,报告中的每条记录都会打印到新页面。如何在我的代码中指定记录应该全部打印在同一页面上,只有当第一页上的空间不足时才转到下一页?现在我正在使用一个循环来打印我的SQL查询中的每个字段,但找到的每个记录最终都在一个单独的页面上。

For Each fld In rs.Fields

    Set txtNew = CreateReportControl(rpt.Name, acTextBox, _
    acDetail, , fld.Name, lngLeft + 1500, lngTop)
    txtNew.SizeToFit

    Set lblNew = CreateReportControl(rpt.Name, acLabel, acDetail, _
    txtNew.Name, fld.Name, lngLeft, lngTop, 1400, txtNew.Height)
    lblNew.SizeToFit

    lngTop = lngTop + txtNew.Height + 25
Next

1 个答案:

答案 0 :(得分:0)

不确定为何使用代码进行报告。报告向导将允许通过属性表指定数据元素和布局规范。当我尝试使用非常基本的报告并且使用报告向导时,它提示我进行布局样式。我选择了表格,并在报告的一页上看到了许多行数据......

enter image description here