400上条码打印

Lantern

偶而看到EPSON普通的针打好象支持条码打印，好象是把字符串加条码指令送给打印机，打印机会自动打印出条码，不知道有没有这种功能！
如果不用特殊的条码打印机，通过普通针打，400能否打印出条码？
不知可有人试过？

liangmian1

不错的条码识别知识，学习一下

xuguopeng

解释的够清楚了呀 还要怎么样？

Lantern

好象没人关心这个问题了么，55~~~~~~~~
顶！

layyf

ADDAPW 我的400里没有这个命令哦，能告诉我这个命令需要装那些特许程序吗？

yj2yq

各位，刚从DDS REFERENCE中看到
对要用条码打印的FIELD加BARCODE关键字，
建一个PRTF，试试吧，不过要打印机支持才行。

aeiou

1。编写程序 PGMA 按照正常情况把要打印的数据生成到O表。
2。编写如下CL程序：

1. 
   
2. PGM
   
3.    OVRPRTF    FILE(QPRINT)  OUTQ(OutqName)  HOLD(*YES)
   
4.    CALL          PGM(PGMA)
   
5.    OVRPRTF    FILE(QPAPWPRT) RPLUNPRT(*YES) OUTQ(OutqName) +
   
6.              FORMTYPE(FmtTypName) SCHEDULE(*IMMED) HOLD(*NO) +
   
7.              SAVE(*YES)
   
8. 
   
9.    MRGAPW     FORMD(CODEP) FILE(CODEP) SPLF(QPRINT) +
   
10.                       OUTQ(OutqName) OUTSPLF(CODEP1)
    
11. 
    
12.    DLTSPLF    FILE(QPRINT) SPLNBR(*LAST)
    
13. ENDPGM
    

复制代码

使用这个CL的程序就能打印条码了。

注：
1。CODEP 是个产生条码的文件，内容如下：
ADDAPW LINE(2) MAGNIFY( (03 10) )
ADDAPW LINE(3) SYMBOL(41 14 CODE39 CODE39 LIBNAME)
ADDAPW LINE(5) MAGNIFY( (03 10) )
ADDAPW LINE( SYMBOL(49 5 CODE39 CODE39 LIBNAME)
ADDAPW LINE( MAGNIFY( (03 17) )
ADDAPW LINE(11) MAGNIFY( (03 15) )
ADDAPW LINE(12) SYMBOL(45 9 CODE39 CODE39 LIBNAME)
ADDAPW LINE(14) MAGNIFY( (03 9) )
ADDAPW LINE(17) SYMBOL(4 11 CODE39 CODE39 LIBNAME)
ADDAPW LINE(23) MAGNIFY( (3 17) )

是个TXT的文件，然后用 CRTAPW 把该文件编译一下，成为FILE类型的OBJ。
CODE39是个条码数据映像文件，是个物理文件。LIBNAME 是CODE39所在的LIB。

2。CODEP：条码数据映像文件。字段定义如下：

1. 
   
2. Field    /Text                     /Length
   
3. -------------------------------------------
   
4. KEYLEN   /SYMBOL ID ACTUAL LENGTH  /  2 0
   
5. KEYFLD   /SYMBOL ID                / 10
   
6. HEIGHT   /NO. LINES LONG           /  2 0
   
7. WIDTH    /NO. CHARACTERS WIDE      /  2 0
   
8. PRTROWS  /NO. PRT PIN ROWS         /  2 0
   
9. PRTCOLS  /NO. PRT PIN COLUMNS      /  2 0
   
10. SYMTXT   /USER TEXT FOR SYMBOL     / 50
    
11. RESERVED /                         / 20
    
12. MATRIX   /BIT ENCODED SYMBOL DEF   /648
    

复制代码

各字段取值举例如下：
KEYLEN  KEYFLD  HEIGHT   WIDTH   PRTROWS  PRTCOLS  SYMTXT  
1        Y        3        2        24        18        Y               
1        Z        3        2        24        18        Z               
1        0        3        2        24        18        0               
1        1        3        2        24        18        1               
1        2        3        2        24        18        2               
1        3        3        2        24        18        3               
1        4        3        2        24        18        4

以上ADDAPW 、 MRGAPW、CRTAPW命令及 QPAPWPRT 文件如果在QSYS等LIB里面找不到，可以在QAPS下找到。

ADDAPW应该和语言库相关的，在QAPS下的那个使用的时候，显示有问题，参数名字和解释都看不到。在QSYS2987，QSYS2962，QSYS2989等系统语言库里面的才好用。

以上是我原来公司一位朋友提供的。他们用的是O表，不知道打印文件是否可行。[/code]

红像

只要打印机支持条码, 针式或激光都不是问题. 但是这个ADDAPW就不一定了----我的400是V4R5, 也没有这个程序.

期待不使用第三方软件的解决方案.

Lantern

我这边是V4R4，QSYS2989下找不到ADDAPW：（
有没有V4R4支持的，可以通过普通针式打印机打印条码？