- 论坛徽章:
- 0
|
400上条码打印
针对基于OS400条形码打印问题,我今天下午研究了一下,现在将结果告诉大家:
1、首先条形码的打印是借助QSYS2989(中文字库)下的ADDAPW命令来实现的,故在运行ADDAPW命令之前,必须先运行CHGSYSLIBL QSYS2989,否则运行ADDAPW时系统会出现" Command ADDAPW in library *LIBL not found. "错误信息;
2、我们在QAPWSRC下可以创建ADDAPW的一系列CL代码来实现,例如:
- Columns . . . : 1 71 Browse R21AMLBE/QAPWSRC
- SEU==>; MFR52AJ01B
- FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
- *************** Beginning of data *************************************
- 0001.00 ADDAPW LINE(12 12) MAGNIFY((59 07 3))
- 0002.00 ADDAPW LINE(15 15) MAGNIFY((12 18 3))
- 0003.00 ADDAPW LINE(18 18) MAGNIFY((90 06 3))
- 0004.00 ADDAPW LINE(21 21) MAGNIFY((90 02 3))
- 0005.00 ADDAPW LINE(21 21) MAGNIFY((105 02 3))
- 0006.00
- 0007.00
- 0008.00 ADDAPW LINE(30 30) SYMBOL(20 15 CODE39 CODE39 IBMIR)
- ****************** End of data ****************************************
-
-
-
-
- F3=Exit F5=Refresh F9=Retrieve F10=Cursor F11=Toggle F12=Cancel
- F16=Repeat find F24=More keys
- (C) COPYRIGHT IBM CORP. 1981, 2002.
复制代码
3、其上面代码中,真正实现“条形码”机能的是:
ADDAPW LINE(30 30) SYMBOL(20 15 CODE39 CODE39 IBMIR)
如果代码中没有加"SYMBOL(20 15 CODE39 CODE39 IBMIR)"参数,将会出现用“*0028140480101*”形式来代替“条形码”形式,所以大家可以根据企业实际情况来进行选择。
4、以上打印出的条形码可以用“条形码扫描仪”进行扫描,得到的结果就是“*0028140480101*”。
5、以上程序在OS400 V5R2上测试通过。 |
|