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

lanqiu

　　*函数名称：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 　　 <