reportprint.prg

来自「vfp 源码,比较全面」· PRG 代码 · 共 9 行

para cReportName
set message to "正在计算报表总页数..."
report form  &cReportName nocons environment
nTotalPAGEs=_pageno
if messagebox("请准备 "+allt(str(ntotalpages))+" 张纸开始打印！",1+64,"打印报表")=1
  REPORT FORM &cReportName noco to print prompt
  set message to "打印报表完成"
endif