****************************************************
(英文版)
设计报表时,点击菜单上的‘Report’->‘Variables...’,出现对话框后,在报表变量
中添加一个报表变量,如‘PrnTF’,其中‘Value to store’、‘Initial’、
‘Reset value based on’及‘Calculation type’不用修改,用默认值。
然后选中‘Release after report’。
最后点击‘确定’。
****************************************************
2、打印时:
REPORT FORM 报表名 TO PRINTER PROMPT
*!*---此句运行后,报表变量PrnTF被定义全局变量。
*!*---如果点击了打印按钮,进行了报表输出,报表变量就被释放了。
*!*---如果点击了取消按钮而不打印,报表变量并没有被释放。
*!*---所以通过检测是否存在此变量来判断是否打印了就可以了。
IF VARTYPE(PrnTF)='U'
MESSAGEBOX('已打印!',64,'信息提示')
ELSE
MESSAGEBOX('未打印!',64,'信息提示')
ENDIF