Relatorio zebrado no quickreport

Utilize o evento beforeprint da banda de detalhes e manipule as cores da banda....

crie uma variável faixa : boolean na seção var do form

var
form1: tform1;
faixa : boolean

No evento before print da banda detalhe coloque
if faixa then
bandadetalhe.color := cor que vc quer
else
bandadetalhe.color := outra cor que vc quer (branco de preferencia)

no evento beforeprint do quick vc coloca

faixa := true

existe um pequeno detalhe que deve ser observado. a variável faixa deve receber valores contrários a cada impressão, ou seja no before do print da banda detalhe deve atribuir novos valores para variável faixa := not faixa

existe um pequeno detalhe que deve ser observado. a variável faixa deve receber valores contrários a cada impressão, ou seja no before do print da banda detalhe deve atribuir novos valores para variável faixa := not faixa

Vê se isso pode te ajudar!
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;