Искал в интернете, как в 1С вывести несколько табличных документов с разной ориентацией страниц в один pdf файл, не нашел. То ли искал плохо, то ли ни у кого таких задач нет, то ли это настолько очевидно, что никто ни стал писать, не знаю.
Вспомнил про ПакетОтображаемыхДокументов, объект вроде придуман для пакетной печати, но он также может один файл запихивать несколько табличных документов. Я его использовал, чтобы несколько листов в одном Excel файле делать. Думаю, попробую его использовать для решения данной задачи, так и есть, работает.
Привожу код (может, кому пригодится):
Пакет = Новый ПакетОтображаемыхДокументов; // Объект для вывода (Доступен, начиная с версии 8.3.3)
ТабличныйДокумент1.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт; // Ориентация первого табличного документа будет ланшафт
Адрес = ПоместитьВоВременноеХранилище(ТабличныйДокумент1); // Помещаем во временное хранилище
Пакет.Состав.Добавить(Адрес); // Добавляем для вывода
ТабличныйДокумент2.ОриентацияСтраницы = ОриентацияСтраницы.Портрет; // Ориентация второго табличного документа будет портрет
Адрес = ПоместитьВоВременноеХранилище(ТабличныйДокумент2); // Помещаем во временное хранилище
Пакет.Состав.Добавить(Адрес); // Добавляем для вывода
ИмяФайла = ПолучитьИмяВременногоФайла("pdf"); // Получаем имя временного файла
Пакет.Записать(ИмяФайла, ТипФайлаПакетаОтображаемыхДокументов.PDF); // Записываем оба табличных документов в файл
Вступайте в нашу телеграмм-группу Инфостарт
