0
balak05
28.11.14
✎
10:56
|
Здравствуйте. Есть внешняя печатная форма для печати приложения 4 к ТТН. Сейчас лицевая сторона печатается на две страницы. Пытался подогнать макет - выходит не очень. Автомасштаб не помогает. Может посоветуете что нибудь?
Вот код:
Если НЕ ЗначениеЗаполнено(Документ) Тогда
Предупреждение("Не выбран документ!");
Возврат;
КонецЕсли;
СтруктураДанныхПечати = Новый Структура();
Для Каждого Реквизит Из ЭлементыФормы Цикл
Если Найти(Реквизит.Имя, "Пункт") > 0.00 Тогда
СтруктураДанныхПечати.Вставить(Реквизит.Имя, ЭтаФорма[Реквизит.Данные]);
КонецЕсли;
КонецЦикла;
ТабДокумент = Новый ТабличныйДокумент();
ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ТТНПриложение4";
МакетТТНПриложение4 = ПолучитьМакет("ТТНПриложение4");
ЛицеваяСторона = МакетТТНПриложение4.ПолучитьОбласть("ГоризонтальнаяЛицеваяСторона|ВертикальнаяОбласть");
ЛицеваяСторона.Параметры.Заполнить(СтруктураДанныхПечати);
ТабДокумент.Вывести(ЛицеваяСторона);
ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
ОборотнаяСторона = МакетТТНПриложение4.ПолучитьОбласть("ГоризонтальнаяОборотнаяСторона|ВертикальнаяОбласть");
ОборотнаяСторона.Параметры.Заполнить(СтруктураДанныхПечати);
ТабДокумент.Вывести(ОборотнаяСторона);
НапечататьДокумент(ТабДокумент, 1, Ложь, "Транспортная накладная");
Пункт0_1 = Пункт0_1 + 1;
|
|