Relatório zebrado no Fortes Reports

Delphi

08/07/2006

Pessoal

Como faço para imprimir relatório zebrado no Fortes Reports ???


Estou usando o Delphi 7


Rogeranalista

Rogeranalista

Curtidas 0

Respostas

Sremulador

Sremulador

08/07/2006

você tem que fazer via código mesmo, pintando a band...


GOSTEI 0
Logos

Logos

08/07/2006

Pessoal Como faço para imprimir relatório zebrado no Fortes Reports ??? Estou usando o Delphi 7


eu faco assim:

procedure TRelClientes.RLBand2BeforePrint(Sender: TObject;
var PrintIt: Boolean);
begin
if rlband2.Color=clwhite then rlband2.Color:=cl3dlight else rlband2.Color:=clwhite;
end;


GOSTEI 0
Joaquim

Joaquim

08/07/2006

Em Lazarus + Fortes Report funcionou perfeitamente!
Praticamente em uma linha!
Muito bem!
GOSTEI 0
Everton Santos

Everton Santos

08/07/2006

BOM NAO USO O FORTES REPORT MAS SE ELE TIVER O EVENTO BEFORE PRINT DA BAND FUNCIONA IGUAL NO QUICK REPORT
VEJA O CODIGO

if Seu_formulario.ImprimeZerado.Checked then // ou iqual = 'SIM' é que no meu caso usei um checkbox
begin
if Sender.Color = clSilver then // se for cinza
Sender.Color := clWhite // pinta de branco
else
Sender.Color := clSilver; // caso contrario pinta de cinza
end;
GOSTEI 0
POSTAR