procedure TQuickReport2.QRBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin QRLabel1.Caption := Form1.Edit1.Text ; end;