1
我对VBA编程还很陌生,我试图在MS Access中创建报告。但是,报表中的每条记录都会打印到新页面。如何在我的代码中指定记录应该全部打印在同一页上,并且只在第一页上的空间不足时才移动到下一页?现在我正在使用一个循环来打印来自SQL查询的每个字段,但是每条记录都会在一个单独的页面上结束。每页有多个记录的MS Access报告
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