如何动态打印报表？

Question

set datareport1.datasource=DATAENVIRONMENT1
datareport1.datamember="Command1"
在报表中设置好控件的DataField，让其与字段名相同就行了。

Answer 1

将 datareport 的数据源设置成 adodb.recordset 就可以了With dtaRpt
    Set dtaRpt.DataSource = TestRs
        .Sections("section1").Controls.Item("Text1").DataField = TestRs.Fields(0).Name
        .Sections("section1").Controls.Item("Text2").DataField = TestRs.Fields(1).Name
        .Sections("section1").Controls.Item("Text3").DataField = TestRs.Fields(2).Name
        .Sections("section1").Controls.Item("Text4").DataField = TestRs.Fields(3).Name
        .Show
    End With