Activate
Activate přepne aktivní list reportu
procedure OnShowReport( Sender : TReportProperty );
begin
SheetList[1].Activate;
end;