How we can use Barlib function on a Report ? ( Treport class) ?
OF oRpt:oDeviceOF oPrnI not Understood
Can you make a minimal sample Please ?
I mean to modify satdata method of Pdreport.prg and Insert ( as the parameter IMAGE or GRAPHICS) the parameters BARCODE to print barcode on line on each record
sample :
oo1 product1 |||||||||||
@ nRow, nCol EAN13 cCod;
OF oRpt:oDevice;
WIDTH 0.035;
SIZE 0.8;
BANNERnRow = oRpt:nRow - oRpt:nStdLineHeight + oRpt:nStdLineHeight / 2
nCol = oRpt:oDevice:nHorzRes() / 5#xcommand COLUMN [ <oRptCol> ] ;
[ TITLE <bTitle, ...> ] ;
[ AT <nCol> ] ;
[ DATA <bData, ...> ] ;
[ SIZE <nSize> ] ;
[ <pict: PICT, PICTURE> <cPicture, ...> ] ;
[ FONT <uFont> ] ;
[ [ <lCum: CUMULATIVE> ] <total: TOTAL> [ FOR <bTotalExpr> ] ] ;
[ <ColFmt:LEFT,CENTER,CENTERED,RIGHT> ] ;
[ <lShadow:SHADOW> ] ;
[ <lGrid:GRID> [ <nPen> ] ] ;
[ <memo: MEMO, MULTILINE> ] ;
[<img:IMAGE> [ IMGDATA <bimg> ] [HEIGHT <h> [<imgpix:PIXEL>] ] [ ALPHALEVEL <nAlpha>] ] ;
[ [<styl:LINE,BAR>] CHARTDATA <chdata> [HEIGHT <h2> [<chtpix:PIXEL>] ] ;
[ MAXVAL <chtmax>] [COLOR <clr,...>] ] ;
[ <valign:TOP,VCENTER,BOTTOM> ] ;
=> ;
[ <oRptCol> := ] RptAddColumn( {<{bTitle}>}, <nCol> ,;
{<{bData}>}, <nSize>, {<cPicture>} ,;
<{uFont}>, <.total.>, <{bTotalExpr}> ,;
[UPPER(<(ColFmt)>)], <.lShadow.>, <.lGrid.>, <nPen>, <.memo.>, ;
<.img.>, [<{bimg}>], [<h>], <.imgpix.>, [<nAlpha>], <.lCum.>, ;
[<chdata>], [<h2>], <.chtpix.>, [<chtmax>], {<clr>}, [Upper(<(styl)>)], ;
[ Upper( <(valign)> ) ] )You can't use COLUMN command to print barcodes. You have to use barlib commands instead, as I've tried to explain. You can freely mixed COLUMN and barlib commands.
EMG
I already gave you all the infos you need.
EMG