bb_prev.prg

不错的用电管理系统,用VFP6.0做的.大家可以下来看看哦

para cReportName,cTitleName

public totalpages

totalpages=0
set message to '预览报表...'
DEFINE WINDOW WinRptPre FROM 0,0 TO SROWS()-10,SCOLS()-10 system CLOSE FLOAT GROW ZOOM ICON FILE 'ICO\PRINT.ICO' TITLE '预览报表：'+cTitleName
set message to '正在计算'+cTitleName+'总页数...'
report form &cReportName nocons environment
TotalPages=_pageno
activate windows WinRptPre
ZOOM WINDOW WinRptPre MAX
REPORT FORM &cReportName PREVIEW WINDOW WinRptPre nowait
release window WinRptPre
set message to ''