Cronin3388

I'm writing a program that prints out barcodes via a thermal receipt printer. The barcodes have to be in Telepen Numeric code which is where i'm having problems. There are many telepen numeric fonts out there, and numerous progrmas that do the encoding for you, but no code!

What I have so far is that I need to have a start character, the message, a check digit, and an end character

The check digit is easy to work out cdigit = message Mod 127

Apparently the start digit is the ascii character for _ and the end digit is the ascii character for Z.

The problem comes with encoding the message as it does not seem as easy as passing the numeric number to the font with the above before and after it as this does not give the correct print out

What seems to be needed is to pass ASCII codes to it in blocks of 2 (i.e. to encode 12 you have to pass the correct character e.g. chr$(12) will give you the number 12.

So I tried the following

Form7.Label1.Caption = Format("_")+chr$(12)+Format(12 Mod 127)+("Z")

and printed it,

BUT it does not seem to give me the correct printout

Does anybody have any experience of working with barcodes and there encoding?

Any help appreciated

James

Cronin3388

OK so I have done some more investigating - obviously the encoding sequence is the 'secret' bit that nobody wants us to know about but it seems that I was right about using ASCII charactrs except you have to start at character 27 (ESC)

so to encode "01" you have to enter ASCII character 28 (FileSep) etc

BUT before everybody stops reading I still have a problem as the check digits don't seem to work quite right - any body got any new ideas? as I have tried this in plain text, without the +27 and with it, but nothing seems to come out correctly

James