FiveTech Software tech support forums

kok joek hoa wrote: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

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)