关于打印SQL Server数据库的备注字段

领测软件测试网

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

　　*---------------------------------------------------------
　　
　　FUNCTION memoprn
　　PARAMETERS memofld,col,width
　　PRIVATE check,memofld,col,width
　　
　　*-- 储存原来的 MEMOWIDTH, PRINTER 的状态
　　cur_width = set("MEMOWIDTH" )
　　cur_print = iif(set("PRINTER")="ON",.t.,.f.)
　　newwidth = min(_rmargin- _lmargin ,width)
　　SET memowidth to newwidth
　　DEFINE box from col-1 to (col+newwidth+1 ) height memlines((memofld))+2
　　DO while !printstatus()
　　WAIT " 打印机不是连机状态，请检查并按任一键继续或按ESC 键退出" ；
　　Window nowait
　　IF lastkey()=27
　　SET memowidth to cur_width && 恢复设置
　　IF cur_print
　　SET printer off
　　ENDIF
　　RETURN
　　ENDIF
　　ENDDO
　　SET printer on
　　STORE .t. to box
　　*-- 打印 DEfINE BOX 设定的边框, 系统内存变量 BOX 需设为.T.
　　(memofld) at col
　　STORE .f. to box
　　*-- @col,1 say (memofld)
　　SET memowidth to cur_width
　　IF cur_print
　　SET printer off
　　ENDIF
　　RETURN

文章来源于领测软件测试网 https://www.ltesting.net/