>Hi
>
>I am trying to print bar code.
>
>I am calling the function below directly in the label report property
>
>StrTo128C(alltrim(myCursor.barraCEP))
>
>The problem is that can see a blank retangle in the beginning and other at the end of the bar code.
>
>Besides the retangles the bar code is not the same as the sample I have (as it was supposed to be)
>
>The font file I installed is "code128.ttf"
>
>Any hint about it will be welcome
>
>Moises
>
>
>

>
>FUNCTION _StrTo128C(tcString)
>  LOCAL lcStart, lcStop, lcRet, lcCheck, lcCar, ;
>    lnLong, lnI, lnCheckSum, lnAsc
>  lcStart = CHR(105 + 32)
>  lcStop = CHR(106 + 32)
>  lnCheckSum = ASC(lcStart) - 32
>  lcRet = ALLTRIM(tcString)
>  lnLong = LEN(lcRet)
>  *--- La longitud debe ser par
>  IF MOD(lnLong,2) # 0
>    lcRet = '0' + lcRet
>    lnLong = LEN(lcRet)
>  ENDIF
>  *--- Convierto los pares a caracteres
>  lcCar = ''
>  FOR lnI = 1 TO lnLong STEP 2
>    lcCar = lcCar + CHR(VAL(SUBS(lcRet,lnI,2)) + 32)
>  ENDFOR
>  lcRet = lcCar
>  lnLong = LEN(lcRet)
>  FOR lnI = 1 TO lnLong
>    lnAsc = ASC(SUBS(lcRet,lnI,1)) - 32
>    lnCheckSum = lnCheckSum + (lnAsc * lnI)
>  ENDFOR
>  lcCheck = CHR(MOD(lnCheckSum,103) + 32)
>  lcRet = lcStart + lcRet + lcCheck + lcStop
>  *--- Esto es para cambiar los espacios y caracteres invalidos
>  lcRet = STRTRAN(lcRet,CHR(32),CHR(232))
>  lcRet = STRTRAN(lcRet,CHR(127),CHR(192))
>  lcRet = STRTRAN(lcRet,CHR(128),CHR(193))
>  RETURN lcRet
>ENDFUNC
>
>

Moises, the StrTo128C() function of PortalFox is valid only with True Type fonts in the same article.

-- Bar codes on Visual FoxPro reports --
http://www.portalfox.com/article.php?sid=2600

Here is the link to download the fonts.

Another option for generating bar codes in VFP is the FoxBarcode class

-- FoxBarcode --
http://vfpx.codeplex.com/wikipage?title=FoxBarcode