ウィンドウフォントに依存するプリンターオブジェクトを使用してバーコードを作成する古い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