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