Relatório zebrado no Fortes Reports
Pessoal
Como faço para imprimir relatório zebrado no Fortes Reports ???
Estou usando o Delphi 7
Como faço para imprimir relatório zebrado no Fortes Reports ???
Estou usando o Delphi 7
Rogeranalista
Curtidas 0
Respostas
Sremulador
08/07/2006
você tem que fazer via código mesmo, pintando a band...
GOSTEI 0
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
08/07/2006
Em Lazarus + Fortes Report funcionou perfeitamente!
Praticamente em uma linha!
Muito bem!
Praticamente em uma linha!
Muito bem!
GOSTEI 0
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;
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