Barcode lib (Cayetano's BarLib)

[Marc Vanzegbroeck]

Hello,

If FW 16bit I used a library 'barlib.lib' where I was able tu print barcodes with the command

@ 1,1 EAN13 artikel->barcode of oPrinter

Is there a simular library for FWH?

I saw there is a 'Cayetano's BarLib enhanced by Enrico', but I can't find the link to download
Thanks,

Marc

[kok joek hoa]

Dear Marc,

give me your email , I have barlib with 32 bit.

regard

kok joek hoa

[dutch]

Dear kok joek hoa,

May I have too?

Thanks,
dutchez4@gmail.com

[kok joek hoa]

Dear Dutch,

please see your email.

thanks,

regards,

kok joek hoa

[Marc Vanzegbroeck]

Kok joek koa,

Can you sent it to my gmail-acount marc.vanzegbroeck@gmail.com

Thanks,
Marc

[kok joek hoa]

Dear Marc,

I already sent to your email.

regards,

kok joek hoa

[Patricio Avalos Aguirre]

kok joek hoa:

Can you sent it to my gmail-acount patricio.avalos.aguirre@gmail.com

Thanks

[dutch]

Dear kok joek hoa,

Could you please post an example for Barlib32.lib.

Thanks,
Dutch

[kok joek hoa]

Dear Dutch,

Barlib32.lib asa same as barlib.lib, except barlib32.lib run on 32 bit.

you can download barlib that provide from Enrico.

regards,

kok joek hoa

[dutch]

Thanks, It will find it.

Dear Dutch,

Barlib32.lib asa same as barlib.lib, except barlib32.lib run on 32 bit.

you can download barlib that provide from Enrico.

regards,

kok joek hoa

[Rick Lipkin]

Dutch

If you need the Barlib code .. send me a note .. I have the .prg's you can re-compile .. here is a sample snipit of code I use to print a 3 of 9 barcode :

Rick Lipkin
r1.1955@live.com

Code: Select all  Expand view

#INCLUDE "FIVEWIN.CH"
#INCLUDE "BARCODE.CH"

/*  other non related code

...


*/



IF mVIEW = "V"
   PRINTER oPRINT FROM USER                ;
   PREVIEW                                 ;
   NAME "PCAS Form Print"

ELSE

   PRINTER oPRINT from USER                ;
   NAME "PCAS Form Print"

   IF EMPTY( oPRINT:hDC )
      MsgStop ( "Printer not Ready !" )
      oDlg:END()
      RETURN(NIL)
   ENDIF

ENDIF

SysReFresh()



oPRINT:SetLandScape()
oFont1 := TFont():New( "ARIAL", 0, -32, .F.,.t.,90,-2,,,,,,,,,oPRINT )

xStep := oPrint:nVertRes()/100
yStep := oPrint:nHorzRes()/5



pLINE := '  '
   prntline( pLINE )


   oPRINT:SetFont( oFONT1 )
   cBARTEXT := SUBSTR(TRIM(oRs:Fields("lname"):Value)+' ';
              +TRIM(oRs:Fields("fname"):Value)+SPACE(30),1,30)

// uses barcode.lib
// first line is ssn                 ||||||||    |||    ||||||||||   <- something like this but in 3 of 9 bar code
// second line is pay period
// third line is programid

   @ 100*xStep,yStep/8.0  code3_9 mSSN of oPrint SIZE -1
   @ 100*xStep,yStep*1.17 code3_9 mFYPP of oPrint SIZE -1
   @ 100*xStep,yStep*1.82 code3_9 oRs:Fields("progid"):Value of oPrint SIZE -1

   oPRINT:SetFont( oFONT )




//--------------------------
static FUNC PRNTLINE( pLINE )

LOCAL i,nCOL

nCOL := 0
FOR i = 1 to LEN(pLINE)
    oPRINT:SAY ( LINE, nCOL, SUBSTR(pLINE,i,1) , oFONT )
    nCOL += nColStep
NEXT

Line += nRowStep

RETURN(NIL)
 

[dutch]

Dear Rick,

Thank you so much, I've downloaded from the forum already.