SET PRINTER TO NAME GETPRINTER() &&吹水版主
yfnRecn=recn()
set filt to recn()=yfnRecn
SET PROCEDURE TO publprg.PRG &&调用子程序,为了截取"情况"字段 分行
for iiii=1 to 3
REPORT FORM wfzzm TO PRINT NOCONSOLE
endfor
SET PROCEDURE TO
set filt to
GO yfnRecn
sele 表单的数据源表
yfnRecn=recn()
sele * from 表单的数据源表 where recn()=yfnRecn into table dy&&& 将要打印的记录单独存放到一个表中
sele dy
for iiii=1 to 3 REPORT FORM wfzzm TO PRINT NOCONSOLE
endfor
sele dy
use
sele 表单的数据源表
GO yfnRecn
***********************