X
xgarden
Unregistered / Unconfirmed
GUEST, unregistred user!
我在用T88控制指令打印条码时候,条码右下角位置总是出现5位数字,怎么也去不掉,请各位高手帮忙指点。
代码如下:
sInit := #27 + 'L' + #27 + 'W' + #0 + #0 + #0 + #0 + #0 + #2 + #30 + #3
+ #27 + 'T' + #0 + #10;
sName := ' ' + '单位名称' + #10;
sTime := ' ' + DateTimeToStr(now) + #10 + #10;
sShouPiaoYuan := ' ' + '售票员:' + aRenYuan + ' ' + #10;
sPiaoLei := ' ' + '票 类:' + aPiaoLei + ' ' + #10;
sPrice := ' ' + '单 价:' + aPrice + '元' + #10;
sRenShu := ' ' + '人 数: ' + aRenShu + '人' + #10;
sMoney := ' ' + '金 额:' + aMoney + '元' + #10 + #10;
sTiaoMa := #27 + 'T' + #3 + #10 + #10 + #10 + #10 + #10
//+ #29 + '$' + #190+#0
+ #29 + 'w' + #2 //条码宽度
+ #29 + 'H' + #0 //条码文字位置
+ #29 + 'k' + #2 //
+ aTiaoMa+ #12+#27 + 'i'+#10 ;
s := sInit +sName + sTime + sShouPiaoYuan + sPiaoLei + sPrice + sRenShu +
sMoney + sTiaoMa;
ShouPiaoFrm.comm2.WriteCommData(pchar(s), length(s));
代码如下:
sInit := #27 + 'L' + #27 + 'W' + #0 + #0 + #0 + #0 + #0 + #2 + #30 + #3
+ #27 + 'T' + #0 + #10;
sName := ' ' + '单位名称' + #10;
sTime := ' ' + DateTimeToStr(now) + #10 + #10;
sShouPiaoYuan := ' ' + '售票员:' + aRenYuan + ' ' + #10;
sPiaoLei := ' ' + '票 类:' + aPiaoLei + ' ' + #10;
sPrice := ' ' + '单 价:' + aPrice + '元' + #10;
sRenShu := ' ' + '人 数: ' + aRenShu + '人' + #10;
sMoney := ' ' + '金 额:' + aMoney + '元' + #10 + #10;
sTiaoMa := #27 + 'T' + #3 + #10 + #10 + #10 + #10 + #10
//+ #29 + '$' + #190+#0
+ #29 + 'w' + #2 //条码宽度
+ #29 + 'H' + #0 //条码文字位置
+ #29 + 'k' + #2 //
+ aTiaoMa+ #12+#27 + 'i'+#10 ;
s := sInit +sName + sTime + sShouPiaoYuan + sPiaoLei + sPrice + sRenShu +
sMoney + sTiaoMa;
ShouPiaoFrm.comm2.WriteCommData(pchar(s), length(s));