打印的备注字段

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

*函数名称：MEMOPRN
*功能说明： 打印数据库的 备注字段
*用法说明：MEMOPRN(,,)
*memofld: 备注字段名称col: 打印起始列width: 打印行宽
*调用实例：USEDBFNAME
*=memoprg(fieldname,1,40)
*RETURN
*---------------------------------------------------------


FUNCTIONmemoprn
PARAMETERSmemofld,col,width
PRIVATEcheck,memofld,col,width

*--储存原来的MEMOWIDTH,PRINTER的状态
cur_width=set("MEMOWIDTH")
cur_print=iif(set("PRINTER")="ON",.t.,.f.)
newwidth=min(_rmargin-_lmargin,width)
SETmemowidthtonewwidth
DEFINEboxfromcol-1to(col+newwidth+1)heightmemlines((memofld))+2
DOwhile!printstatus()
WAIT" 打印机不是连机状态，请检查并按任一键继续或按ESC键退出"；
Windownowait
IFlastkey()=27
SETmemowidthtocur_width&&恢复设置
IFcur_print
SETprinteroff
ENDIF
RETURN
ENDIF
ENDDO
SETprinteron
STORE.t.tobox
*-- 打印DEfINEBOX设定的边框,系统内存变量BOX需设为.T.
??(memofld)atcol
STORE.f.tobox
*--@col,1say(memofld)
SETmemowidthtocur_width
IFcur_print
SETprinteroff
ENDIF
RETURN
<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>