type TForm1 = class (TForm) QuickRep1: TQuickRep; QRLabel1: TQRLabel; procedure QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); public { Déclarations publiques } MaVariable: string; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); begin QrLabel1.Caption : = MaVariable; end;