2

我们有一些古老的 vb6 程序，它使用依赖于窗口字体的打印机对象创建条码，这与 code39 配合得很好。最近我们需要将字体切换到code128，经过一些工作我们将输入转换为code128格式的字符串，并尝试使用相同的方法打印，但是打印输出似乎不正确（奇怪的是，当我们将转换后的字符串复制到excel并使用相同的code 128字体打印出来，完美显示和打印）

我想知道有没有人有同样的经历，如果有的话，有没有人可以切碎一些灯？

以下是我们用来打印条形码的代码

dim sOrg as string
sOrg = "12345888"

printer.fontName = "code39"
printer.print sOrg    'This prints it out perfectly

'However when we change font to code
'this returns   Í,BZx}Î   which can be copy onto Excel and print out properly
sOrg = convertTo128(sOrg)   
printer.fontName = "Code 128"
printer.print sOrg     'print out with part barcode line, part squares
4

1 回答 1

0

您可以使用以下项目，其中包括 VB6 项目并打开 Barcode Font

条形码字体和编码器

于 2014-04-11T05:51:05.760 回答