Fórum Relatório zebrado no Fortes Reports #325025
08/07/2006
0
Como faço para imprimir relatório zebrado no Fortes Reports ???
Estou usando o Delphi 7
Rogeranalista
Curtir tópico
+ 0Posts
09/07/2006
Sremulador
Gostei + 0
12/08/2006
Logos
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
12/09/2017
Joaquim
Praticamente em uma linha!
Muito bem!
Gostei + 0
19/09/2017
Everton Santos
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
Clique aqui para fazer login e interagir na Comunidade :)