Имя: Пароль:
1C
1С v8
Внешняя печатная форма в 1с 8.1
0 balak05
 
28.11.14
10:56
Здравствуйте. Есть внешняя печатная форма для печати приложения 4 к ТТН. Сейчас лицевая сторона печатается на две страницы. Пытался подогнать макет - выходит не очень. Автомасштаб не помогает. Может посоветуете что нибудь?
Вот код:



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

макет поправить, может там область печати кривая
2 balak05
 
28.11.14
11:02
(1) а без изменения макета? чтобы лицевая сторона подгонялась в масштаб страницы. С оборотной стороной все нормально