bb_prin.prg

来自「2仍然」· PRG 代码 · 共 9 行

para cReportName,cTitleName
public totalpages
totalpages=0
set message to '打印报表...'
set message to '正在计算'+cTitleName+'总页数...'
report form &cReportName nocons environment
TotalPages=_pageno
REPORT FORM &cReportName noconsole to PRINT
set message to ''