[例9-2打印如图9.7所示的芏要设备价格表 k E9-2 PRG * SET DEVICE TO PRINTER &&若要打印去掉行首的*号 zt="FONT’宋体’,12 &&为宏代换设置内存变量 0,9SAY’主要设备价格表’FONT’黑体’,16 &&设置表头 @2.0 SAY &zt&&设置顶线 @3O SAY 编号|名称丨价格 &zt&&设置标题栏 UsE sb SCAN FOR主要设备 @i.O SAY ’&zt&&设置行间隔线 @i+1,0SAY’|’+ SPACE(1)+编号+’|’+名称+’|’+STR(价格,10,2)+'|’&zt &&设置一行内容 i=i+2 ENDSCAN @L0 SAY &zt&&设置底线 @i+1,20SAY’制表部门:设备科FONT’宋体’,10 &&设置表尾 SET DEVICE TO SCREEN &&结束处理 SET PRINTER TO LPTI &&若要打印去掉行首的*号[例9-2] 打印如图9.7所示的主要设备价格表。 * E9-2.PRG * SET DEVICE TO PRINTER && 若要打印去掉行首的*号 zt= "FONT '宋体',12" && 为宏代换设置内存变量 @0,9 SAY '主要设备价格表' FONT '黑体',16 && 设置表头 @2,0 SAY '┌───┬────┬─────┐' &zt && 设置顶线 @3,0 SAY '│编 号│ 名 称 │ 价 格 │' &zt && 设置标题栏 USE sb i=4 SCAN FOR 主要设备 @i,0 SAY '├───┼────┼─────┤' &zt && 设置行间隔线 @i+1,0 SAY '│'+SPACE(1)+编号+'│'+名称+'│'+STR(价格,10,2)+'│' &zt && 设置一行内容 i=i+2 ENDSCAN @i,0 SAY '└───┴────┴─────┘' &zt && 设置底线 @i+1,20 SAY '制表部门: 设备科' FONT '宋体',10 && 设置表尾 SET DEVICE TO SCREEN && 结束处理 * SET PRINTER TO LPT1 && 若要打印去掉行首的*号