procedure TForm1.GridToXLS1AfterNewSheet(Sender: TObject; Worksheet: TXLSWorksheet); begin Worksheet.PageSetup.CenterHeader := 'Monthly report'; end;