Code: Select all
METHOD PrintBarcode(cCode,nLine,nLeft,nType,nWidth,nHeigth,lBanner,lHorz,cFont,nColor) CLASS TLabel
local nRow := ::nRow +nLine
local nCol := ::Column() +nLeft
Local oPrint := ::oDevice
DEFAULT nWidth := 0.03 ,;
nHeigth := 0.6 ,;
lHorz := .t. ,;
nColor := CLR_BLACK ,;
lBanner := .f. ,;
cFont := 'arial'
// 1 = Code 39 ..
// 2 = Code 39 check digit
// 3 = Code 128 auto select
// 4 = Code 128 mode A
// 5 = Code 128 mode B
// 6 = Code 128 mode C
// 7 = EAN 8 ..
// 8 = EAN 13 ..
// 9 = UPC-A ...
// 10 = Codabar ...
// 11 = Suplemento 5 ..
// 12 = Industrial 2 of 5 ..
// 13 = Industrial 2 of 5 check digit
// 14 = Interlaved 2 of 5 ..
// 15 = Interlaved 2 of 5 check digit
// 16 = Matrix 2 of 5 ...
// 17 = Matrix 2 of 5 check digit
Do case
Case nType==1
Code3_9(nRow,nCol,cCode,oPrint,.f.,nColor,lHorz,nWidth,nHeigth)
Case nType==2
Code3_9(nRow,nCol,cCode,oPrint,.t.,nColor,lHorz,nWidth,nHeigth)
Case nType==3
Code128(nRow,nCol,cCode,oPrint,"",nColor,lHorz,nWidth,nHeigth)
Case nType==4
Code128(nRow,nCol,cCode,oPrint,"A",nColor,lHorz,nWidth,nHeigth)
Case nType==5
Code128(nRow,nCol,cCode,oPrint,"B",nColor,lHorz,nWidth,nHeigth)
Case nType==6
Code128(nRow,nCol,cCode,oPrint,"C",nColor,lHorz,nWidth,nHeigth)
Case nType==7
ean8(nRow,nCol,cCode,oPrint,nColor,lHorz,nWidth,nHeigth,lBanner,cFont)
Case nType==8
ean13(nRow,nCol,cCode,oPrint,nColor,lHorz,nWidth,nHeigth,lBanner,cFont)
Case nType==9
UPCA(nRow,nCol,cCode,oPrint,nColor,lHorz,nWidth,nHeigth,lBanner,cFont)
Case nType==10
Codabar(nRow,nCol,cCode,oPrint,nColor,lHorz,nWidth,nHeigth)
Case nType==11
sup5(nRow,nCol,cCode,oPrint,nColor,lHorz,nWidth,nHeigth,lBanner,cFont)
Case nType==12
ind25(nRow,nCol,cCode,oPrint,.f.,nColor,lHorz,nWidth,nHeigth)
Case nType==13
ind25(nRow,nCol,cCode,oPrint,.t.,nColor,lHorz,nWidth,nHeigth)
Case nType==14
int25(nRow,nCol,cCode,oPrint,.f.,nColor,lHorz,nWidth,nHeigth)
Case nType==15
int25(nRow,nCol,cCode,oPrint,.t.,nColor,lHorz,nWidth,nHeigth)
Case nType==16
mat25(nRow,nCol,cCode,oPrint,.f.,nColor,lHorz,nWidth,nHeigth)
Case nType==17
mat25(nRow,nCol,cCode,oPrint,.t.,nColor,lHorz,nWidth,nHeigth)
Endcase
Return Nil
// 16 = Matrix 2 of 5 ...