Chinaunix首页 | 论坛 | 博客
  • 博客访问: 334924
  • 博文数量: 1051
  • 博客积分: 53280
  • 博客等级: 大将
  • 技术积分: 6670
  • 用 户 组: 普通用户
  • 注册时间: 2008-09-09 13:21
文章分类

全部博文(1051)

文章存档

2011年(1)

2008年(1050)

我的朋友

分类:

2008-09-09 15:44:09


  *函数名称: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
  
【责编:admin】
--------------------next---------------------

阅读(144) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~