打印一个报表
出处:网络

* 程序名：ReportPrint.prg
* 参数说明： cReportName 为要打印的报表文件名
* 使用说明：do ReportPrint with "报表1"
para cReportName
set message to "正在计算报表总页数..."
report form &cReportName nocons environment &&计算报表的总页数
nTotalPAGEs=_pageno
if messagebox("请准备 "+allt(str(ntotalpages))+" 张纸开始打印！",1+64,"打印报表")=1
REPORT FORM &cReportName noco to print prompt
set message to "打印报表完成"
endif

[返回]

首页 | 设为首页 | 加入收藏 | 关于本站 | 友情链接 | 版权声明