FiveTech Support Forums

to make easy some tables printed Iuse the class Tinforme Pubblished by josè luis ( alanit)
viewtopic.php?f=6&t=20860&p=111880&hilit=tinforme#p111880

It run good and it is very easy to use

only I wish inserted new features as colors for the text ( Title , subtitle, footer ) and color for the Grid

to print each column It use simply

RptAddColumn( {bTitulo(::aTitulos,i)},,{bCampo(::aCampos,i)},::aWidth[i],{},{||1},.F.,,,.F.,.F.,)

to make color I use 3 type of Pen and each Pen is definited as

DEFINE PEN ::AoPen1 STYLE ::nPenstilo WIDTH val(::nPensize) COLOR ::nColore OF ::oReport

I put the row in bold ( that not run on report )

REPORT ::oReport ;
TITLE " ",::cTitulo1,::cTitulo2,iif(::cTitulo3!=NIL,::cTitulo3," ") CENTERED;
FONT ::oFont3, ::oFont2, ::oFont1 ;
PEN ::AoPen1,::AoPen2,::AoPen3; --------------not run !!!
HEADER ' ',::cTitleHeader ;
FOOTER ::cTitleFoot, "Data: "+dtoc(date())+ " Página.: "+str(::nPage,3) ;
CAPTION "" PREVIEW


.....
......
...




IF ::lCreated
IF ::lGrid
::SetPenColor(::nColore)------------> not run !!!!
::CellView()
::SetShdColor(CLR_GRAY)
ENDIF
::nTitleUpLine := RPT_SINGLELINE
::nTitleDnLine := RPT_SINGLELINE
::aFont[2] := {|| 3 }
::aFont[3] := {|| 2 }
::SetTxtColor(::nColoreFont1,1) ------------> not run !!!!
::SetTxtColor(::nColoreFont2,2) ------------> not run !!!!
::SetTxtColor(::nColoreFont3,3) ------------> not run !!!!
::nTopMargin := 0.1
::nDnMargin := 0.1
::nLeftMargin := 0.1
::nRightMargin := 0.1
::lPrvModal:= .t.



ENDIF




Any solution please ?