【发布时间】:2014-10-31 21:40:22
【问题描述】:
我是 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
【问题讨论】: