xlsWorksheet := xlsWorkbook.Worksheets.Add; xlsWorksheet.Name := 'Имя Нового листа'; xlsWorksheet.PageSetup.Orientation := 2; xlsWorksheet.Activate; //обязательный атрибут перехода, без него не покатит