Druck Code128 barcode mit Drucker-Objekt in vb6 (mit Schrift)

Wir haben einige alte vb6-Anwendung, die erstellt barcode mit Drucker-Objekten, die sich auf Fenster Schriftarten, die gut funktioniert mit code39.
Wir sind vor kurzem wechseln müssen Sie die schriftart code128, nach einiger Arbeit, die wir konvertiert die Eingabe in code128 format-string, und versuchen, den Druck mit der gleichen Methode, aber der Ausdruck scheint nicht richtig zu sein (seltsame Sache ist, wenn wir kopieren Sie die konvertierte Zeichenfolge in excel, und verwenden Sie den gleichen code 128 schriftart drucken Sie es aus, Sie anzeigen und drucken Sie prefectly)

Ich Frage mich, ob jemand die gleiche Erfahrung gemacht, wenn ja, kann jemand shred einige Lichter bitte?

Den folgenden code, den wir verwendet, um zu drucken Sie barcode -

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