TPrinter: Recommended way to print zebra line effect

[hua]

What's the recommended way to print with zebra line effect for reports that have many columns?

TIA

[nageswaragunupudi]

Please try

Code: Select all  Expand view

function PrintZebra

   local oPrn, oFont, oBrushColor, oBrush
   local nRow

   USE STATES

   PRINT oPrn PREVIEW

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-12 OF oPrn
   DEFINE BRUSH oBrushColor COLOR CLR_HGRAY

   PAGE

   nRow     := 1.0

   do while STATES->( RECNO() ) < 15 .and. !STATES->( Eof() )

      @ nRow, 1.0 PRINT TO oPrn TEXT STATES->CODE SIZE 1.0, 0.3 INCHES ALIGN "L" FONT oFont COLOR CLR_BLACK, oBrush
      @ nRow, 2.0 PRINT TO oPrn TEXT STATES->NAME SIZE 3.0, 0.3 INCHES ALIGN "L" FONT oFont COLOR CLR_BLACK, oBrush

      nRow     += 0.3
      oBrush   := If( oBrush == nil, oBrushColor, nil )

      STATES->( DbSkip( 1 ) )

   enddo

   ENDPAGE
   ENDPRINT

   RELEASE FONT oFont
   RELEASE BRUSH oBrushColor

return nil
 

[hua]

Thanks Rao.

However I need it to encompass multi line because I want transactions belonging to the same document are grouped with the same colour

[nageswaragunupudi]

You can.
In the above example, set the oBrush to the brush you want depending on whatever condition you specify.