Как можно программно в печатную форму добавить пустую строку c последующим её заполением?
ДопТекст = СокрЛП(СведенияОДокументе.Документ.ДополнительнаяПодписьВШапкеСчета);
Если ДопТекст<>"" Тогда
ТабличныйДокумент.ВставитьОбласть(ТабличныйДокумент.Область("R1"), ТабличныйДокумент.Область("R1"),
ТипСмещенияТабличногоДокумента.ПоГоризонтали);
Обл = ТабличныйДокумент.Область(ТабличныйДокумент.ВысотаТаблицы-1,1,ТабличныйДокумент.ВысотаТаблицы,11);
Обл.Объединить();
Обл.ГраницаСлева = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная,1);
Обл.ГраницаСнизу = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная,1);
Обл.ГраницаСправа = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная,1);
Обл.ГраницаСверху= Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная,1);
ШрифтП = 10;
Обл.Текст = ДопТекст;
Обл.Шрифт = Новый Шрифт(, ШрифтП, Истина, , ,Истина ) ;
Обл.РазмещениеТекста = ТипРазмещенияТекстаТабличногоДокумента.Переносить;
КонецЕсли;
Показатьполе текст недоступно для записи
Найденные решения
(2) Спасибо за наводку все работает до меня дошло!!!!
ТабличныйДокумент.ВставитьОбласть(ТабличныйДокумент.Область("R1"), ТабличныйДокумент.Область("R1"),
ТипСмещенияТабличногоДокумента.ПоГоризонтали);
Обл = ТабличныйДокумент.Область(1,1,2,11);//ТабличныйДокумент.ВысотаТаблицы-1,1,ТабличныйДокумент.ВысотаТаблицы,11);
Обл.Объединить();
Обл.ГраницаСлева = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная,1);
Обл.ГраницаСнизу = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная,1);
Обл.ГраницаСправа = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная,1);
Обл.ГраницаСверху= Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная,1);
//Если СтрДлина(СокрЛП(ПредставлениеПокупателя2))>185 Тогда
// ШрифтП = 8;
//Иначе
ШрифтП = 10;
//КонецЕсли;
Обл.Текст = ДопТекст
//Обл.Шрифт = Новый Шрифт(, ШрифтП, Истина, , ,Истина ) ;
//Обл.РазмещениеТекста = ТипРазмещенияТекстаТабличногоДокумента.Переносить;
ПоказатьОстальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(2) Спасибо за наводку все работает до меня дошло!!!!
ТабличныйДокумент.ВставитьОбласть(ТабличныйДокумент.Область("R1"), ТабличныйДокумент.Область("R1"),
ТипСмещенияТабличногоДокумента.ПоГоризонтали);
Обл = ТабличныйДокумент.Область(1,1,2,11);//ТабличныйДокумент.ВысотаТаблицы-1,1,ТабличныйДокумент.ВысотаТаблицы,11);
Обл.Объединить();
Обл.ГраницаСлева = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная,1);
Обл.ГраницаСнизу = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная,1);
Обл.ГраницаСправа = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная,1);
Обл.ГраницаСверху= Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная,1);
//Если СтрДлина(СокрЛП(ПредставлениеПокупателя2))>185 Тогда
// ШрифтП = 8;
//Иначе
ШрифтП = 10;
//КонецЕсли;
Обл.Текст = ДопТекст
//Обл.Шрифт = Новый Шрифт(, ШрифтП, Истина, , ,Истина ) ;
//Обл.РазмещениеТекста = ТипРазмещенияТекстаТабличногоДокумента.Переносить;
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот