reportpreview.prg

来自「功能模块:报关操作,运输操作,报关查询,运输查询」· PRG 代码 · 共 13 行

para cReportName,cTitleName
set message to "预览报表..."
DEFINE WINDOW WinRptPre FROM 0,0 TO SROWS()-10,SCOLS()-10 ;
in desktop 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 "预览报表完成"