Процедура ТЗПечать(ТЗ,Заголовок=»») Экспорт Перем Таб, Кол,Стр; #Если Клиент Тогда Линия = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная,1); ТолстаяЛиния = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 2); Таб=Новый ТабличныйДокумент; Таб.Область(1,1).Текст=Заголовок; Таб.Область(1,1).ШиринаКолонки = 4; Таб.Область(1,1).Обвести(ТолстаяЛиния,ТолстаяЛиния,ТолстаяЛиния,ТолстаяЛиния); Для Кол=1 По ТЗ.Колонки.Количество() Цикл врЗаголовок = «»; Если СокрЛП(Строка(ТЗ.Колонки[Кол-1].Заголовок)) <> «» Тогда врЗаголовок = Строка(ТЗ.Колонки[Кол-1].Заголовок); Иначе врЗаголовок = Строка(ТЗ.Колонки[Кол-1].Имя) КонецЕсли; Таб.Область(2,Кол+1).Текст = врЗаголовок; Таб.Область(2,Кол+1).Шрифт = Новый Шрифт(,,Истина);// жирный Таб.Область(2,Кол+1).Обвести(ТолстаяЛиния,ТолстаяЛиния,ТолстаяЛиния,ТолстаяЛиния); … Читать далее