Функция СформироватьПечатнуюФорму(МассивОбъектов) Экспорт ТабличныйДокумент = Новый ТабличныйДокумент; ТабличныйДокумент.АвтоМасштаб = Истина; ТабличныйДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт; ТабличныйДокумент.ОтображатьСетку = Ложь; ТабличныйДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_WB"; ИмяФайла = ПолучитьИмяВременногоФайла(); ПолучитьМакет("Настройка").Записать(ИмяФайла); ЧтениеХМЛ = Новый ЧтениеXML; ЧтениеХМЛ.ОткрытьФайл(ИмяФайла); НовыйСXDTO = Новый СериализаторXDTO(ФабрикаXDTO); Настройки = НовыйСXDTO.ПрочитатьXML(ЧтениеХМЛ); ЧтениеХМЛ = Неопределено; УдалитьФайлы(ИмяФайла); КомпоновщикНастроек = Новый КомпоновщикНастроекКомпоновкиДанных; КомпоновщикНастроек.ЗагрузитьНастройки(Настройки); Эл = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("МассивДокументов"); Эл.Значение = МассивОбъектов; Схема = ПолучитьМакет("Схема"); КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных; МакетКомпоновки = КомпоновщикМакета.Выполнить(Схема, КомпоновщикНастроек.Настройки); ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных; ПроцессорКомпоновки.Инициализировать(МакетКомпоновки); ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент; ПроцессорВывода.УстановитьДокумент(ТабличныйДокумент); ПроцессорВывода.Вывести(ПроцессорКомпоновки, Истина); Возврат ТабличныйДокумент; КонецФункции
Печатная форма из СКД
Добавить комментарий