0
Nikosss
26.03.13
✎
12:06
|
Поставлена задача: необходимо печатные формы Акт сверки,Акт об оказании услуг, СФ, СФ на аванс и счет на оплату вывести в один! PDF файл.
Все отлично выводилось до последнего макета Акт сверки! Все области печати, кроме подвала! не растягиваются. Если его первым выводить, то АктСверки помещается нормально, но уже все остальные макеты растягиваются. Не пойму в чем дело, может есть у кого какие мысли? Все листы ландшафт.
ТабДок = Новый ТабличныйДокумент;
//*** Акт сверки
Отбор = Новый Структура;
Отбор.Вставить("ТипДокумента","Акт сверки взаиморасчетов");
Отбор.Вставить("НаПечать",Истина);
ДокиАктСверки = ПереченьДокументов.НайтиСтроки(Отбор);
Для Каждого Стр Из ДокиАктСверки Цикл
ТабАктСверки = ПечатьАктаСверки(Стр.Документ);
ТабАктСверки.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
ТабАктСверки.АвтоМасштаб = Истина;
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
ТабДок.Вывести(ТабАктСверки);
КонецЦикла;
//*** Счет на оплату
Отбор = Новый Структура;
Отбор.Вставить("ТипДокумента","Счет на оплату покупателю");
Отбор.Вставить("НаПечать",Истина);
ДокиСчетОплата = ПереченьДокументов.НайтиСтроки(Отбор);
Для Каждого Стр Из ДокиСчетОплата Цикл
ТабСчетОплата = ПечатьСчетаЗаказа("Счет",Стр.Документ);
ТабСчетОплата.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
ТабСчетОплата.АвтоМасштаб = Истина;
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
ТабДок.Вывести(ТабСчетОплата);
КонецЦикла;
ТабДок.АвтоМасштаб = Истина;
ТабДок.Показать();
//ТабДок.Записать("C:\Таблица1.pdf",ТипФайлаТабличногоДокумента.PDF);
|
|