[MartinS]

Me parece buena la opcion de Marcos.

Otra mas simple seria que en vez de usar un QrDbText uses un QrLabel y le pasas el valor en el evento que indicas antes de imprimir de modo que:

Código Delphi [-]
    If TuConsulta.FieldByName('Saldo').AsCurrency < 0 then
      Qrlabel.Caption := '$ 0,00' else
      QrLabel.Caption := CurrToStr(TuConsulta.FieldByName('Saldo').ASCurrency);

Saludos.-

Perdon: Supuse que la consulta daba un solo registro. Me quedo con la opcion de Marcos