使用VB6中的打印机对象打印Code128条形码(使用字体)

Question

我们有一些古老的VB6程序，该程序使用依赖于窗口字体的打印机对象创建条形码，与code39一起使用窗口字体。最近，我们需要将字体切换到Code128，经过一项工作后，我们将输入转换为Code128格式字符串，并尝试使用相同的方法进行打印，但是，打印输出似乎不正确（奇怪的是，当我们将转换的字符串复制到Excel并使用相同的代码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 

Answer 1

您可以使用包含VB6项目和打开条形码字体的以下项目

条形码字体和编码器