最近一直在网上查找，怎样打印code128的条形码。查了很多资料，得到的基本结论就是，code39可以用字库解决，前后加*号即可，code128c有点难，下载了code128的字库，可以打印，但扫描时是无法识别的，扫描枪识别不了，试卷扫描系统也识别不了（学生的准考证号是粘贴条码识别的），前面需要加开始符，末尾需要加验证符与结束符。

[此贴子已经被作者于2023-6-13 10:31编辑过]

这个是在网上找到的CODE128的编码规则，可惜有点错误。





这一页错了，红色的部分应该是195--206，也就是说，CODE128C的开始符应该是CHR（205），结束符应该是CHR（206）。

[此贴子已经被作者于2023-6-13 10:44编辑过]

依照上面的编码规则，我用报表打印学生考试条码标签CODE1128C
考号的后四位分别是考场号和座位号。

SET TALK OFF
SET SAFE OFF
CLOSE DATABASES ALL
MESSAGEBOX("请先选择学生库",0+64,"条形码打印")
filename = GETFILE()
SELECT 考号, 姓名,学校,;
       SubStr(考号,9,2) AS 考场,;
       SubStr(考号,11,2) AS 座号,;
       205 AS TXM0,;
       INT(IIF(VAL(SUBSTR(考号,1,2))<95,VAL(SUBSTR(考号,1,2))+32,VAL(SUBSTR(考号,1,2))+100)) AS TXM1,;
       INT(IIF(VAL(SUBSTR(考号,3,2))<95,VAL(SUBSTR(考号,3,2))+32,VAL(SUBSTR(考号,3,2))+100)) AS TXM2,;
       INT(IIF(VAL(SUBSTR(考号,5,2))<95,VAL(SUBSTR(考号,5,2))+32,VAL(SUBSTR(考号,5,2))+100)) AS TXM3,;
       INT(IIF(VAL(SUBSTR(考号,7,2))<95,VAL(SUBSTR(考号,7,2))+32,VAL(SUBSTR(考号,7,2))+100)) AS TXM4,;
       INT(IIF(VAL(SUBSTR(考号,9,2))<95,VAL(SUBSTR(考号,9,2))+32,VAL(SUBSTR(考号,9,2))+100)) AS TXM5,;
       INT(IIF(VAL(SUBSTR(考号,11,2))<95,VAL(SUBSTR(考号,11,2))+32,VAL(SUBSTR(考号,11,2))+100)) AS TXM6,;
       INT(IIF(MOD(105+VAL(SUBSTR(考号,1,2))*1+VAL(SUBSTR(考号,3,2))*2+VAL(SUBSTR(考号,5,2))*3+VAL(SUBSTR(考号,7,2))*4+VAL(SUBSTR(考号,9,2))*5+VAL(SUBSTR(考号,11,2))*6,103)<95,;
       MOD(105+VAL(SUBSTR(考号,1,2))*1+VAL(SUBSTR(考号,3,2))*2+VAL(SUBSTR(考号,5,2))*3+VAL(SUBSTR(考号,7,2))*4+VAL(SUBSTR(考号,9,2))*5+VAL(SUBSTR(考号,11,2))*6,103)+32,;
       MOD(105+VAL(SUBSTR(考号,1,2))*1+VAL(SUBSTR(考号,3,2))*2+VAL(SUBSTR(考号,5,2))*3+VAL(SUBSTR(考号,7,2))*4+VAL(SUBSTR(考号,9,2))*5+VAL(SUBSTR(考号,11,2))*6,103)+100)) AS TXM7,;
       206 AS TXM8;
FROM &filename INTO TABLE DBF\TXM.DBF
REPORT FORM DBF\TXMDY preview

问题出现了，两位ASCII字符会自动拼成汉字，头疼。

[此贴子已经被作者于2023-6-13 10:45编辑过]

[此贴子已经被作者于2023-6-13 11:29编辑过]

不要总着想着免费使用，使用量大的话，建议买一个正版控件！

要不少钱的😁关键还是想挑战一下，网上我看好像打code128成功的，有一位成功的网友很执着，硬是把107种条码分别存成图片，再紧贴排版，打印成功的🤣🤣🤣

有现成的条码类，免费的

没那么复杂，使用foxbarcode就能解决，我一直在用
（1）在表单的init里加下面两句（程序见附件）
SET PROCEDURE TO foxbarcode ADDITIVE
SET PROCEDURE TO gpimage2.prg ADDITIVE
（2）在打印标签的按钮里使用下面的语句

PRIVATE poFbc
poFbc = CREATEOBJECT("FoxBarcode")
WITH poFbc
  .cImageType = "BMP"
*  .cImageFile = SYS(5)+SYS(2003)+"\xbarcode"    && 可以输出为图片文件
  .nBarcodeType = 110  && Code 128
  .cSet128 = "A"    &&"Auto" && Set 128 C
  .nImageHeight = 70
  .nFactor = 2
  .nFontSize = 9
ENDWITH
（3）标签中的使用

收到的鲜花

• 厨师王德榜 于 2023-06-13 14:06 送鲜花  1朵   附言：好文
• gyluming 于 2023-06-13 15:53 送鲜花  1朵   附言：谢谢指导！

foxbarcode 最大的问题就是条码宽度不能根据DPI缩放，同样的条码字符串，别的条码打印宽度可以很小，而 foxbarcode却不可以。
(Width随意更改会导致扫码枪识别不了)

我现在用的标签6*4和8*5都没问题，太小的没用过，客户应用中目前也不需要太小的