自定义vfp报表纸张类型

* 编号：A0006
* 功能：自定义vfp报表纸张类型
*set path to d:\vfp98
fn=getfile("frx")
use &fn in 0 alias mFrx
x=atcline("PaperSize",mFrx.Expr)  &&取得参数PAPERSIZE在EXPR字段中的行
mTYPE_1=subs(mline(mFrx.Expr,x),11)  &&取得设计时保存的纸张类型
mTYPE_2=allt(str(prtinfo(2)))  &&取得当前打印机默认的纸张类型
x=atcline("PaperLength",mFrx.Expr)
mLen=subs(mline(mFrx.Expr,x),13)
x=atcline("PaperWidth",mFrx.Expr)
mWidth=subs(mline(mFrx.Expr,x),12)
use in "mFrx"
if mTYPE_1=mTYPE_2
  report form &fn to printer noconsole
else
  Messagebox("请设置打印机纸张类型为自定义: 长="+mLen+"  宽="+mWidth,0+48+0, "提示")
  report form &fn to printer prompt
endif