Имя: Пароль:
1C
1С v8
Програмно обвести ячейку в макете - не отображается
0 GoReLoN
 
19.04.19
14:10
Цель: при печати на макете нужно обвести ячейки, в которых содержится комментарий. Если комментария нет, то не обводить.

<1с>
Комментарий = ?(ЗначениеЗаполнено(Шапка.ТорговаяТочка),Шапка.ТорговаяТочка,Шапка.Комментарий);
ОбластьМакета.Параметры.Комментарий = Комментарий;

Если Комментарий <> "" Тогда
    НовЛиния = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная,3,Истина);
    Макет.Область("Ком1").Обвести(НовЛиния,НовЛиния,НовЛиния,НовЛиния);
    Макет.Область("Ком2").Обвести(НовЛиния,НовЛиния,НовЛиния,НовЛиния);
КонецЕсли;
</1с>

Но при печати, нужные ячейки не обводятся
Основная теорема систематики: Новые системы плодят новые проблемы.