Hi,

I can't confirm your code at this moment, but I will take a look at it soon. Where did you get your 128 font? The reason I ask is that not all 128 fonts respond as would be expected to input data. Some fonts I have used expect start and stop digits that are not CHR(182) and CHR(184). The source of the font will have info about this. This is used by some companies to "protect" their font from being used without their .dll or ActiveX components.

In testing with your printer, start very simple. Encode a single character, do the checksum manually, and send to the printer. Code 128 is a challenge on a dot matrix printer, but can be done in LQ with a good ribbon. Some fonts have multiple sizes and aspect ratios. A single character barcode in 128 should probably be about 1/2-inch high and about 3/8-inch long. You should see a well defined width difference in black AND white space. I make up a report with multiple font entries at different resoultions to print a test page. If you need a font, I can't say enough about the folks at azalea.com!

Good Luck - keep us posted

>Hi, Sergey
>
>thank for your reply about Code128, i had visit the website that you told me.
>and i coding a function for generate CODE for Code128 as below :-
>
>*****
>PROC CODE128B
>PARA C128B
>PRIV TEMP, CHUNK, I, E, CHKTTL
>TEMP = ""
>CHUNK = ""
>CHKTTL = 104
>FOR I = 1 TO LEN(C128B)
> CHUNK = SUBS(C128B,I,1)
> DO CASE
> CASE ASC(CHUNK) > 200
> TEMP = TEMP + CHR(ASC(CHUNK)-35)
> CASE ASC(CHUNK) = 32
> TEMP = TEMP + CHR(194)
> OTHER
> TEMP = TEMP + CHUNK
> ENDCASE
>NEXT
>FOR I = 1 TO LEN(C128B)
> E = ASC( SUBS(C128B,I,1) ) - 32
> IF E <> 142
> CHKTTL = CHKTTL + (E*I)
> ENDIF
>NEXT
>DO CASE
> CASE MOD(CHKTTL,103) = 0
> RETURN CHR(182) + TEMP + CHR(194) + CHR(184)
> CASE BETW( MOD(CHKTTL,103), 1, 93 )
> RETURN CHR(182) + TEMP + CHR( MOD(CHKTTL,103)+32 ) + CHR(184)
> OTHER
> RETURN CHR(182) + TEMP + CHR( MOD(CHKTTL,103)+91 ) + CHR(184)
>ENDCASE
>RETURN ""
>*****
>
>But i still can't scan the barcode from printout !!??
>i guess, maybe the fonts (download from web) is not collect,
>would you mind send your Fonts (Barcode128 type B) to me.
>
>Thank a lot for your help