reportpreview.prg

vfp 源码,比较全面

* 程序名： ReportPreview.prg
* 程序说明： 定义一个windows窗口，在此窗口中进行预览
* 变量说明： cReportName: 报表文件名；cTitleName: 报表标题
* 使用说明： do ReportPreview with "报表1","报表1"

para cReportName,cTitleName
set message to "预览报表..."
DEFINE WINDOW WinRptPre FROM 0,0 TO SROWS()-10,SCOLS()-10 ;
system CLOSE FLOAT GROW ZOOM TITLE "预览报表："+cTitleName
set message to "正在计算报表总页数..."
report form  &cReportName nocons environment
nTotalPAGEs=_pageno
activate windows  WinRptPre
deac wind  WinRptPre
ZOOM WINDOW WinRptPre MAX
REPORT FORM &cReportName PREVIEW WINDOW WinRptPre nowait
release window WinRptPre
set message to "预览报表完成"