0
USERAVS
12.07.06
✎
09:44
|
Процедура ТЗПечать(ТЗ,Заголовок="") Экспорт
Перем Таб, Кол,Стр;
Таб=Новый ТабличныйДокумент;
Таб.Область(1,1).Текст=Заголовок;
Для Кол=1 По ТЗ.Колонки.Количество() Цикл
Таб.Область(2,Кол+1).Текст=Строка(ТЗ.Колонки[Кол-1].Имя);
Таб.Область(2,Кол+1).Шрифт=Новый Шрифт(,,Истина);// жирный
КонецЦикла;
i=0;
Для Каждого Ном ИЗ ТЗ Цикл
i=i+1;
Таб.Область(i+2,1).Текст=Строка(i);
Для Кол=1 По ТЗ.Колонки.Количество() Цикл
Таб.Область(i+2,Кол+1).Текст=Строка(ТЗ[i-1][кол-1]);
Таб.Область(i+2,Кол+1).Обвести();
КонецЦикла;
Если i/10=Цел(i/10) Тогда
Состояние(Заголовок+", печать: "+Строка(i));
КонецЕсли;
КонецЦикла;
Таб.Показать();
КонецПроцедуры
|
|