reportpreview.prg

红狐VFP6通讯录V3.3,大家看看,可能会有帮助,好了

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: 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 '预览报表完成'
*