打印数据库的备注字段 - 中国WEB开发者网络 (http://www.webasp.net) -- 技术教程 (http://www.webasp.net/article/) --- 打印数据库的备注字段 (http://www.webasp.net/article/20/19652.htm)

-- 作者：未知 -- 发布日期： 2005-04-29

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

webasp.net