v8: Ориентация страницы

 //Установить вид страницы Альбомная

ТаблДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;   

 Процедура ВывестиОтчет() Экспорт

 // Выведем в СКД произвольную шапку отчета 

    Таб = ЭлементыФормы.Результат;

    Таб.Очистить();

 // Получим  макет с нужной шапкой и выведем его 

    Макет = ПолучитьМакет("Макет");

    Область = Макет.ПолучитьОбласть("Заголовок");

    Область.Параметры.Раз = "Раз";

    Область.Параметры.Два = "Два";

    Таб.Вывести(Область);

    

 // Формируем отчет СКД   

    ДанныеРасшифровки = Неопределено;

    КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

    МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.Настройки, ДанныеРасшифровки);

    

    ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;

    ПроцессорКомпоновки.Инициализировать(МакетКомпоновки, Новый Структура("Данные", ТЗ), ДанныеРасшифровки);

 // Установим Альбомную ориентацию страницы

 ДокументРезультат = ЭлементыФормы.Результат;

 ДокументРезультат .ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;



 // Выводим данные отчета

    ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

    ПроцессорВывода.УстановитьДокумент( ДокументРезультат);

    

    ПроцессорВывода.НачатьВывод();

    

    ЭлементРезультата = ПроцессорКомпоновки.Следующий();

    Пока ЭлементРезультата <> Неопределено Цикл

        ПроцессорВывода.ВывестиЭлемент(ЭлементРезультата);

        ЭлементРезультата = ПроцессорКомпоновки.Следующий();

    КонецЦикла;

    

    ПроцессорВывода.ЗакончитьВывод();

    

КонецПроцедуры   

 МакетКомпоновкиДанных = КомпоновщикМакета.Выполнить(ЭтотОбъект.СхемаКомпоновкиДанных,

    Настройки,ДанныеРасшифровки);

    

    ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

    ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновкиДанных,,ДанныеРасшифровки);

    

    ЭлементыФормы.Результат.Очистить();

    ДокументРезультат = ЭлементыФормы.Результат;



    ДокументРезультат .ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;

    

ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

    ПроцессорВывода.УстановитьДокумент(ДокументРезультат);

    ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);