[Alfredo Soler]

Perdón por no explicarme bien, pero fue que respondí a las 2:00 AM y el sueño no me permitió revisar el masaje.

Lo que quise decir fue que podías utilizar el evento BeforePrint de la banda y aquí va el ejemplo completo otra vez.

procedure TForm1.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  if table1.FieldByName('campo').asfloat>=0 then
     QRExpr1.Font.Color:=clBlack
  else
     QRExpr1.Font.Color:=clRed;
end;

Gracias cadetill