Hola DarkBlue.
No sé como tenes organizado el reporte, pero suponiendo que tengas:
- TQuickRep
- TQRSubDetail (propiedad DataSet = tu TDataSet)
- TQRLabel (dentro del TQRSubDetail)
Una forma podría ser:
Código Delphi
[-]
procedure TForm1.QRSubDetail1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
QRLabel1.Font.Charset:= SYMBOL_CHARSET;
QRLabel1.Caption:= Chr(StrToInt(DataSet.FieldByName('CAMPO').AsString));
end;
Un saludo.