行业应用

开发平台：

VFP

reportpreview.prg：源码内容

							* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: REPORTPREVIEW.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 PARAMETER CREPORTNAME , CTITLENAME
 SET MESSAGE TO '预览报表...'
 DEFINE WINDOW WINRPTPRE FROM 0 , 0 TO SROWS() - 10 , SCOLS() - 10 GROW FLOAT CLOSE  ;
      ZOOM TITLE '预览报表：' + CTITLENAME SYSTEM 
 SET MESSAGE TO '正在计算报表总页数...'
  report form  &cReportName nocons environment
 NTOTALPAGES = _PAGENO
 ACTIVATE WINDOW WINRPTPRE
 DEACTIVATE WINDOW WINRPTPRE
 ZOOM WINDOW WINRPTPRE MAX 
  REPORT FORM &cReportName PREVIEW WINDOW WinRptPre nowait
 RELEASE WINDOW WINRPTPRE
 SET MESSAGE TO '预览报表完成'
*

						