1 在数据库中生成一TEMP表。

2 用报表生成器生成报表，然后删除数据库中的TEMP表。

3 在VB中打开数据库，用OPENRECORDSET语句生成一个RECORDSET (此RECORDSET的结构要与第一步生成的TEMP表一样，但记录数可以用WHERE子句限制) 用SET DATA1.RECORDSET=RS(RECORDSET)将RECORDSET的数据赋予数据控件。

4 设定报表控件的REPORTFILENAME属性为报表文件名；

REPORTSOURCE属性为3；

DATASOURCE属性为数据控件名

5 执行ME.CR1.ACTION=1即可打印。

但我不知如何直接利用RECORDSET中的数据，如果你知道请告知。感谢由 FENG 提供该技巧