Имя: Пароль:
1C
 
Печать таблицы значений (аналог версии 1сv7.7)
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));
       КонецЕсли;
   КонецЦикла;                          
   Таб.Показать();
КонецПроцедуры
1 Asmody
 
12.07.06
09:49
многа букаф.
через построитель делается в две строчки
2 Scooter
 
12.07.06
09:50
(1) давай пример
3 Дяпти
 
12.07.06
09:51
ТЗ.ВыбратьСтроку();
// потом правой кнопкой - вывести список.
4 Scooter
 
12.07.06
09:52
(3) + Контрал+П
5 Asmody
 
12.07.06
10:01
(2) уже давал. вот те еще раз:

Построитель=Новый ПостроительОтчета();
Построитель.ИсточникДанных=Новый ОписаниеИсточникаДанных(ТаблицаЗначений);
Построитель.Вывести();

ошибся, не 2 а 3 строчки...
6 Scooter
 
12.07.06
10:08
(5) супер
(0) как пример для начинающих тоже хорошо, а то запарили как да как
7 ottto
 
12.07.06
11:24
Да букв много.
Я как (3), только в отладчике ТЗ ловлю и там вывести в список
8 Romkin
 
12.07.06
13:32
(5) А возможно управлять наименованиями заголовков колонок и шириной колонок без использования макета?
9 Romkin
 
12.07.06
15:00
ап
Программист всегда исправляет последнюю ошибку.