我们有一些古老的vb6程序,它使用依赖于窗口字体的打印机对象创建条形码,这对于代码39可以正常工作。 最近我们需要将字体切换到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