程序代码：

USE tymc2.frx in 0 ALIAS mPrint              &&在空闲工作区以mPrint别名打开xxx.frx文件 
x=ATCLINE('PAPERSIZE',mPrint.Expr)           &&取得PAPERSIZE在Expr字段中的行 
sSIZE=SUBSTR(MLINE(mPrint.Expr,x),11)        &&取得设计时保存的纸张类型 
mSIZE=ALLTRIM(STR(PRTINFO(2)))               &&取得当前打印机默认的纸张类型 
x=ATCLINE('PAPERLENGTH',mPrint.Expr)         &&取得纸张长度在Expr字段中的行 
sLEN=SUBSTR(MLINE(mPrint.Expr,x),13)         &&取得纸张长度
x=ATCLINE('PAPERWIDTH',mPrint.Expr)          &&取得纸张宽度在Expr字段中的行 
sWIDTH=subs(mline(mPrint.Expr,x),12)         &&取得纸张宽度 
USE in 'mPrint'                              &&关闭xxx.frx文件
IF sSIZE=mSIZE                               &&如果相符，则正常打印
  REPORT FORM tymc2.frx to Noconsole preview &&printer 
ELSE 
  MESSAGEBOX('请设定打印机纸张为自定义：长='+sLEN+',宽='+sWIDTH,0+48+0,'提示:')
  REPORT FORM tymc2.frx to printer prompt    &&打印前先打开打印机设置对话窗口 
ENDIF