行业应用

开发平台：

VFP

reportprint.prg：源码内容

							* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: REPORTPRINT.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 PARAMETER CREPORTNAME
 SET MESSAGE TO '正在计算报表总页数...'
  report form  &cReportName nocons environment
 NTOTALPAGES = _PAGENO
 IF MESSAGEBOX('请准备 ' + ALLTRIM(STR(NTOTALPAGES)) + ' 张纸开始打印！',65,'打印报表') =  ;
1
  REPORT FORM &cReportName noco to print prompt
 SET MESSAGE TO '打印报表完成'
 ENDIF 
*

						