bb_prin1.prg

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

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