Inprimir un tipo de letra (Codigo de barras)?

[__cadetill]

Una alternativa a lo que te comenta Andres es definir el evento OnPrint del TQRDBText y cambiar el valor de salida por el que tu quieras

procedure TForm2.QRDBText1Print(sender: TObject; var Value: String);
begin
  Value := '*' + Value + '*';
end;