网络上找到的:
在报表数据环境的destroy事件中加入代码:
=tablerevert(.f.)
在报表数据环境的ini事件中加入如下代码(以下代码运行时出错,什么原因?):
if vartype(tobePrint) = \"U\" Public tobePrint tobePrint = 20&&每页要打印的行数为20 endifdo while reccount(\"表名\") % tobePrint <> 0 append blank &&不足20行,添加空记录 enddo
下面这段代码为打印报表
RELEASE tobeprint PUBLIC tobeprint tobeprint = 20 &&设置每页打印20条记录 REPORT FORM 报表名 to print