Forums Neueste Beiträge
 

EDC-Sequenzen in VB6

27/01/2009 - 09:54 von Richard-Hans Riethmüller | Report spam
Hallo,

ich muß einen Star-Bondrucker direkt ansteuern, das klappt sowei ganz gut. Allerdings soll jetzt zusàtzlich ein Barcode ausgedruckt werden. Im Handbuch zum Drucker (Star) dazu finde ich folgende Anweisungen:

Code: <ESC> "b" n1 n2 n3 n4 di ... dk <RS>
in Hex 1Bh 62h n1 n2 n3 n4 di ... dk 1Eh

Um K090110011 im Code 39 auszugeben müsste ich also schreiben
<ESC> "b" 4 2 4 40 diK090110011dk <RS>
n1 = Barcodeart (4 = Code 39)
n2 = Whether character below bar code or line feed is printed, in meinem Fall 2
n3 = Narrow : wide in meinem Fall 4
n4 = Height in dots, in meinem Fall 40
di...dk Daten des Barcodes

Nur, wie formuliere ich das in VB, damit ich das direkt auf den Drucker schicken kann?

Danke

Richard
 

Lesen sie die antworten

#1 Dieter Strassner
27/01/2009 - 11:01 | Warnen spam
Hallo Richard-Hans


ich muß einen Star-Bondrucker direkt ansteuern, das klappt sowei ganz
gut. Allerdings soll jetzt zusàtzlich ein Barcode ausgedruckt werden.
Im Handbuch zum Drucker (Star) dazu finde ich folgende Anweisungen:

Code: <ESC> "b" n1 n2 n3 n4 di ... dk <RS>
in Hex 1Bh 62h n1 n2 n3 n4 di ... dk 1Eh

Um K090110011 im Code 39 auszugeben müsste ich also schreiben
<ESC> "b" 4 2 4 40 diK090110011dk <RS>
n1 = Barcodeart (4 = Code 39)
n2 = Whether character below bar code or line feed is printed, in
meinem Fall 2
n3 = Narrow : wide in meinem Fall 4
n4 = Height in dots, in meinem Fall 40
di...dk Daten des Barcodes

Nur, wie formuliere ich das in VB, damit ich das direkt auf den
Drucker schicken kann?



Den Heycode als String senden:
Ein <ESC> (h) mit CHR$(27) in ein String umwandeln. Alle Hexwerte so
hintereinanderketten.

Meine Erfahrung mit dem STAR-Bondrucker waren damals (vor ca. 3-4 Jahren)
allerdings nicht berauschend. Der druckte nicht umbedingt alles, was er
sollte und auch konnte (lt. Handbuch).

Anmerkung: Alternativ zum Printer-Objekt könnte der Drucker auch mittels
OPEN "Lpt1:" geöffnet werden.


Viele Grüße

Dieter


Rückfragen bitte nur in die Newsgroup!

EDV-Kommunikation Strassner e.K.
68623 Lampertheim
Internet: www.strassner.biz

Ähnliche fragen