Quick Report

[GicaLilica 0]

Oi gente, eu vou usar o Quick Report e gostaria de saber se ha alguma maneira de, quando o usuario for imprimir o relatorio, ele saia zebrado sabe? Ou entao, criar um risco entre as informações pra ficar mais facil a leitura entendem?

Obrigada

bjos

Gii http://forum.imasters.com.br/public/style_emoticons/default/wub.gif

[hhmelina 0]

Oi miguinha... :D Testa aí...procedure TFrm_Animais.Db_GridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);begin inherited; If (Mod_Dados.QR_Animais.RecNo) mod 2 = 0 then // condição Db_grid.Canvas.Brush.Color:=$00DBDBDB // coloque aqui a cor desejadaelse If (Mod_Dados.QR_Animais.RecNo) mod 2 = 1 then // condição Db_grid.Canvas.Brush.Color:= $00E1FFFF; // coloque aqui a cor desejadaDb_grid.DefaultDrawDataCell(Rect, db_grid.columns[datacol].field, State);end;Beijos...Mel ^_^