Nota No Boletim Escolar

[Guest - Edson -]

Estou fazendo um Relatório no QReport do Delphi 7, que é um Boletim Escolar onde a média para aprovação é 70, indo de 0 a 100 e precisava fazer o relatório imprimir as notas menores que 70 na cor vermelha.

O local onde são alocadas as notas no relatório estão na band QRSubDatail e as notas estão nos QRDBText, dentro deste QRSubDatail.

Agradeço desde já a atenção de todos e aguardo resposta...

[Micheus]

No evento BeforePrint do sub-detail coloque o código mais ou menos assim:

if DatasetNOME_CAMPO_NOTA.Value < 70 then // o dataset e campo que você associou ao QRDBText
  QRDBText.Font.Color := clRed
else
  QRDBText.Font.Color := clBlack;