2014-10-31 38 views
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 

回答

0

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

enter image description here