bb_prev.prg

来自「一个有关电力系统收费的管理软件」· PRG 代码 · 共 16 行

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 ''