No te voy a poner un ejemplo, así no aprenderías. Lo que sí haré es explicarte el funcionamiento del evento OnPrint
Veamos su definición
Código Delphi
[-]procedure TForm1.QRDBText1Print(sender: TObject; var Value: String);
Bien, según esto, el evento OnPrint recibe dos parámetros. El primero es el Sender, típico de todo evento (o casi todo). El segundo, que es el que nos interesa, es
Value.
Si te fijas, es un parámetro de tipoo In/Out (por el
var que le precede) y, Value contendrá lo que el QR va a imprimir en ese QrDbText.
A parte de esto, has de tener presente que, en todo momento puedes consultar el valor de un campo de la tabla de forma directa, es decir, puedes hacer algo como.....
Código Delphi
[-]
Qr.Dataset.FieldByName('MiCampo').AsXXXX
donde AsXXX es el tipo de campo (AsInteger, AsBoolean, AsFloat, .....)
Resumiendo. Con lo segundo que te he dicho, puedes saber el valor de un determinado campo y, con lo primero, puedes modificar el valor de salida de lo que se va a imprimir en el QrDbText
Venga, que ya verás que es fácil
PD: ten en cuenta que Value es de tipo String (por eso de hacer conversiones si las necesitaras)