Relatório zebrado com QuickReport

Exemplo simples de como fazer um relatório zebrado utilizando QuickReport.

Declare uma variável global do tipo Boolean na seção Private do Form:

type
TForm1 = class(Form)
private
gZebrado: Boolean;
end;


No evento BeforePrint do DetailBand implemente:

procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
begin
if ( gZebrado ) then
Sender.Color:= $00EEEEEE
else
Sender.Color:= $00FFFFFF;
gZebrado:= not gZebrado;
end;


Este exemplo é simples e fica legal quando não há quebras.
Você pode tentar implementar em um relatório com quebras, para isso basta colocar o mesmo código do evento BeforePrint do DetailBand no evento BeforePrint de cada quebra.