Процедура ДействияФормыПечать(Кнопка)
	
	//Список для вывода
	Список = ЭтаФорма.ТабличноеПолеДокументов;
	
	//Табличный документ и его параметры
	ТабДок = Новый ТабличныйДокумент;
	ТабДок.АвтоМасштаб = Истина;
	ТабДок.ТолькоПросмотр = Ложь;
	ТабДок.ОтображатьСетку = Ложь;
	
	//Макет
	Макет = Документы.Заказ.ПолучитьМакет("МакетСписок");
	
	//Обозначение облостей макета
	ОбластьШапка = Макет.ПолучитьОбласть("Шапка");
	ОбластьСтрока = Макет.ПолучитьОбласть("Строка");
	
	//Вывод облости макета
	ТабДок.Вывести(ОбластьШапка);
	
	//Читаем список через построитель отчета
	Построитель = Новый ПостроительОтчета;
	Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(Список);
	Выборка = Построитель.Результат.Выбрать();
	
	Пока Выборка.Следующий() Цикл
		
		ОбработкаПрерыванияПользователя();
		ОбластьСтрока.Параметры.Заполнить(Выборка);
	
		//Вывод облости макета
		ТабДок.Вывести(ОбластьСтрока);
	КонецЦикла;
	
	//Показываем сформированную печатную форму	
	ТабДок.Показать();
	
КонецПроцедуры
   

 //Пример получения текста ячейки
ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента; 
ПолеТабДок.Область("R1C2").Текст = спрНоменклатура.Наименование;
ПолеТабДок.Область("R2C2").Текст = "Это Строка"; //указываем явно литерал строки
   

 // Изменение текста в области или ячейке

Для а = 11 по ТабличныйДокумент.ВысотаТаблицы Цикл
		//Ячейка = ТабличныйДокумент.Область(а,1,а,1).Текст; 
		текстЯчейка = ТабличныйДокумент.Область("R"+а+"C2").Текст; 
		Если Строка(ТабличныйДокумент.Область("R"+а+"C2").ЦветФона)="стиль: Фон кнопки" Тогда
			ТабличныйДокумент.Область("R"+а+"C7").Текст="";
			ТабличныйДокумент.Область("R"+а+"C11").Текст="";	
			ТабличныйДокумент.Область("R"+а+"C8").Текст=""; 		
			ТабличныйДокумент.Область("R"+а+"C9").Текст=""; 		
			ТабличныйДокумент.Область("R"+а+"C10").Текст=""; 	
			
		КонецЕсли;
		
	КонецЦикла;
   

 // Как раскрасить ячейку или область табличного документа в зависимости от условия
ТабДок = ЭлементыФормы.ПолеТабличногоДокумента; // Получаем табличный документ из формы 
ТабДок.Очистить(); // Очищаем табличный документ 
Макет = ПолучитьМакет("Макет"); // Получаем макет с именем "Макет" из текущего объекта 
ОбластьСтрокаТаб = Макет.ПолучитьОбласть("СтрокаТаб"); // Получаем область из макета 
ОбластьСтрокаТаб.Параметры.НашПараметр = 1; // Устанавливаем значение 1 параметру "НашПараметр" 
ОбластьОформления = ТабДок.Вывести(ОбластьСтрокаТаб); 
// Вот собственно и само оформление ячейки 
ТабДок.Область(ОбластьОформления.Верх, ОбластьОформления.Лево, ОбластьОформления.Низ, ОбластьОформления.Лево).ЦветФона = WebЦвета.Красный;
   

 //Пример изменения цвета текста при выводе данных в табличный документ

        Таб.ВывестиСекцию("Контрагент");

        // Изменим Текст ячейки, имя которой заранее задали как "ТекстОСостоянии"

        Таб.Область("ТекстОСостоянии").Текст = "Хорошо ";

        // В зависимости от условия изменим Цвет Текста

        Если Раз<0 Тогда

          Таб.Область(Таб.ВысотаТаблицы(),9,Таб.ВысотаТаблицы(),9).ЦветТекста(255,0,0); 

           ИначеЕсли Раз>0 Тогда

          Таб.Область(Таб.ВысотаТаблицы(),9,Таб.ВысотаТаблицы(),9).ЦветТекста(0,0,255);

       КонецЕсли;   

 МассивБулево = Новый Массив; 
МассивБулево.Добавить(Тип("Булево"));
ОписаниеТиповБулево = Новый ОписаниеТипов(МассивБулево);
//...
ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента; 
ПолеТабДок.Область("R3C3").СодержитЗначение = Истина; //указываем, что в ячейке будет значение
ПолеТабДок.Область("R3C3").ТипЗначения = ОписаниеТиповБулево; //указываем тип значения
ПолеТабДок.Область("R3C3").Значение = СпрНоменклатура.Услуга; //значение, типа "Булево" из справочника   

 ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента; 
ПолеТабДок.Область("R4C3").ТипЗначения = ОписаниеТиповДата; //указываем тип, ранее заданный для Даты
ПолеТабДок.Область("R4C3").Значение = ТекущаяДата();
//указываем форматную строку 
//будет выглядеть как "[031120-2315]-", если текущая дата '20-11-2003 23:15:00') 
ПолеТабДок.Область("R4C3").Формат = "ДФ=[ггММдд-ЧЧмм]-";   

 МассивБулево = Новый Массив; 
МассивБулево.Добавить(Тип("Булево"));
ОписаниеТиповБулево = Новый ОписаниеТипов(МассивБулево);
...
ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента; 
ПолеТабДок.Область("R5C3").СодержитЗначение = Истина; //указываем, что в ячейке будет значение
ПолеТабДок.Область("R5C3").ТипЗначения = ОписаниеТиповБулево; //указываем ранее заданный тип
ПолеТабДок.Область("R5C3").Значение = СпрНоменклатура.Услуга; //значение, типа "Булево" из справочника
//а теперь указываем, что в ячейке будет отображаться флажок
ПолеТабДок.Область("R5C3").УстановитьЭлементУправления(Тип("Флажок"));   

  ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента;
ПолеТабДок.Область("R4C3").Защита = Истина;
   

 &НаКлиентеНаСервереБезКонтекста
Функция ПолучитьТекстЗапроса()


 Возврат "ВЫБРАТЬ
         | КлассификаторБанковРФ.Ссылка,
         | КлассификаторБанковРФ.Наименование
         |ИЗ
         | Справочник.КлассификаторБанковРФ КАК КлассификаторБанковРФ";


КонецФункции // ПолучитьТекстЗапроса()


&НаСервере
Функция ПолучитьСхемуОбработки()
 
 Возврат РеквизитФормыВЗначение("Отчет").ПолучитьМакет("Макет");
 
КонецФункции


&НаСервереБезКонтекста
Функция ПолучитьСхемуКомпоновки()
 
 Схема = Новый СхемаКомпоновкиДанных;
 
 ИсточникДанных = Схема.ИсточникиДанных.Добавить();
 ИсточникДанных.Имя = "Источник";
 ИсточникДанных.ТипИсточникаДанных = "Local";
 
 НаборДанных = Схема.НаборыДанных.Добавить(Тип("НаборДанныхЗапросСхемыКомпоновкиДанных"));
 НаборДанных.Имя = "НаборДанных";
 НаборДанных.ИсточникДанных = "Источник";
 НаборДанных.Запрос = ПолучитьТекстЗапроса();
 
 НаборСсылка = НаборДанных.Поля.Добавить(Тип("ПолеНабораДанныхСхемыКомпоновкиДанных"));
 НаборСсылка.Поле = "Ссылка";
 НаборСсылка.ПутьКДанным = "Ссылка";
 НаборНаименование= НаборДанных.Поля.Добавить(Тип("ПолеНабораДанныхСхемыКомпоновкиДанных"));
 НаборНаименование.Поле = "Наименование";
 НаборНаименование.ПутьКДанным = "Наименование";
 
 ПолеИД = Схема.ВычисляемыеПоля.Добавить();
 ПолеИД.Выражение = "XMLСтрока(Ссылка)";
 ПолеИД.Заголовок = "ИД";
 ПолеИД.ПутьКДанным = "ИД";
 
 СтрокаТЗ = Схема.НастройкиПоУмолчанию.Структура.Добавить(Тип("ГруппировкаКомпоновкиДанных"));
 СтрокаТЗ.Выбор.Элементы.Добавить(Тип("АвтоВыбранноеПолеКомпоновкиДанных"));
 
 ЭлементыВыбора = Схема.НастройкиПоУмолчанию.Выбор.Элементы;
 ПолеСсылка = ЭлементыВыбора.Добавить(Тип("ВыбранноеПолеКомпоновкиДанных"));
 ПолеСсылка.Поле = Новый ПолеКомпоновкиДанных("Ссылка");
 ПолеНаименование = ЭлементыВыбора.Добавить(Тип("ВыбранноеПолеКомпоновкиДанных"));
 ПолеНаименование.Поле = Новый ПолеКомпоновкиДанных("Наименование");
 ПолеИД = ЭлементыВыбора.Добавить(Тип("ВыбранноеПолеКомпоновкиДанных"));
 ПолеИД.Поле = Новый ПолеКомпоновкиДанных("ИД");
 
 Возврат Схема;
 
КонецФункции


&НаСервереБезКонтекста
Функция ЗаполнитьПоКомпоновкеПрямойОбход(Схема)


 Док = Новый ТекстовыйДокумент;
 
 КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
 Макет = КомпоновщикМакета.Выполнить(Схема, Схема.НастройкиПоУмолчанию,,, Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений")); 
 
 ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
 ПроцессорКомпоновки.Инициализировать(Макет,,, Истина);
 
 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;
 ПроцессорВывода.УстановитьОбъект(Новый ТаблицаЗначений);
 ПроцессорВывода.НачатьВывод();
 
 Пока Истина Цикл
  
  ЭлементКомпоновки = ПроцессорКомпоновки.Следующий();
  Если ЭлементКомпоновки = Неопределено Тогда
   Прервать;
  КонецЕсли;
  
  ПроцессорВывода.ВывестиЭлемент(ЭлементКомпоновки);
  Если ЭлементКомпоновки.Макет = "Макет2" И ЭлементКомпоновки.ТипЭлемента = ТипЭлементаРезультатаКомпоновкиДанных.НачалоИКонец Тогда
   Док.ДобавитьСтроку(ЭлементКомпоновки.ЗначенияПараметров.П2.Значение + ";" + ЭлементКомпоновки.ЗначенияПараметров.П3.Значение);
  КонецЕсли;
  
 КонецЦикла;
 
 ТЗ = ПроцессорВывода.ЗакончитьВывод();
 
 Возврат Док;


КонецФункции // ЗаполнитьПоКомпоновкеПрямойОбход()


&НаСервере
Функция ЗаполнитьОбходТЗ(ИспользоватьСхемуОбработки)


 Если ИспользоватьСхемуОбработки Тогда
  Схема = ПолучитьСхемуОбработки();
 Иначе
  Схема = ПолучитьСхемуКомпоновки();
 КонецЕсли;
 
 Возврат ЗаполнитьПоКомпоновкеОбходТЗ(Схема);


 //Возврат ЗаполнитьПоКомпоновкеОбходТЗ(?(ИспользоватьСхемуОбработки, ПолучитьСхемуОбработки(), ПолучитьСхемуКомпоновки()));
 
КонецФункции // ЗаполнитьОбходТЗ()


&НаСервере
Функция ЗаполнитьПрямойОбход(ИспользоватьСхемуОбработки)


 Если ИспользоватьСхемуОбработки Тогда
  Схема = ПолучитьСхемуОбработки();
 Иначе
  Схема = ПолучитьСхемуКомпоновки();
 КонецЕсли;
 
 Возврат ЗаполнитьПоКомпоновкеПрямойОбход(Схема);
 //Возврат ЗаполнитьПоКомпоновкеПрямойОбход(?(ИспользоватьСхемуОбработки, ПолучитьСхемуОбработки(), ПолучитьСхемуКомпоновки()));


КонецФункции // ЗаполнитьОбходТЗ()


&НаСервереБезКонтекста
Функция ЗаполнитьПоКомпоновкеОбходТЗ(Схема)


 Док = Новый ТекстовыйДокумент;
 
 КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
 Макет = КомпоновщикМакета.Выполнить(Схема, Схема.НастройкиПоУмолчанию,,, Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений")); 
 
 ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
 ПроцессорКомпоновки.Инициализировать(Макет,,, Истина);
 
 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;
 ПроцессорВывода.УстановитьОбъект(Новый ТаблицаЗначений);
 ТЗ = ПроцессорВывода.Вывести(ПроцессорКомпоновки);
 
 Для Каждого СтрокаТЗ Из ТЗ Цикл
  Док.ДобавитьСтроку(СтрокаТЗ.Наименование + ";" + СтрокаТЗ.ИД);
 КонецЦикла;
 
 Возврат Док;


КонецФункции // ЗаполнитьПоКомпоновкеОбходТЗ()


&НаСервереБезКонтекста
Функция ЗаполнитьПоЗапросу()


 Док = Новый ТекстовыйДокумент;
 
 Запрос = Новый Запрос(ПолучитьТекстЗапроса());
 Результат = Запрос.Выполнить().Выбрать();
 Пока Результат.Следующий() Цикл
  Док.ДобавитьСтроку(Результат.Наименование + ";" + XMLСтрока(Результат.Ссылка));
 КонецЦикла;
 
 Возврат Док;


КонецФункции // ЗаполнитьПоЗапросу()


&НаСервере
Процедура ЗаполнитьТабДокСхема(ИспользоватьСхемуОбработки)


 Если ИспользоватьСхемуОбработки Тогда
  Схема = ПолучитьСхемуОбработки();
  ТабДок = ТабДок1;
 Иначе
  Схема = ПолучитьСхемуКомпоновки();
  ТабДок = ТабДок2;
 КонецЕсли;
 
 КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
 Макет = КомпоновщикМакета.Выполнить(Схема, Схема.НастройкиПоУмолчанию); 
 
 ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
 ПроцессорКомпоновки.Инициализировать(Макет,,, Истина);
 
 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
 ПроцессорВывода.УстановитьДокумент(ТабДок);
 ПроцессорВывода.Вывести(ПроцессорКомпоновки);


КонецПроцедуры // ЗаполнитьТабДокСхема()


&НаСервере
Процедура ЗаполнитьТабДокЗапрос()
 
 Макет = РеквизитФормыВЗначение("Отчет").ПолучитьМакет("Отчет");
 ОбластьСтрока = Макет.ПолучитьОбласть("Строка");
 
 Запрос = Новый Запрос(ПолучитьТекстЗапроса());
 Результат = Запрос.Выполнить().Выбрать();
 Пока Результат.Следующий() Цикл
  ОбластьСтрока.Параметры.Заполнить(Результат);
  ОбластьСтрока.Параметры.ИД = XMLСтрока(Результат.Ссылка);
  ТабДок3.Вывести(ОбластьСтрока);
 КонецЦикла;
 
КонецПроцедуры


&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
 
 ЗаполнитьТабДокСхема(Истина);
 ЗаполнитьТабДокСхема(Ложь);
 ЗаполнитьТабДокЗапрос();
 
 Т1 = ЗаполнитьПоЗапросу(); 
 Т2 = ЗаполнитьОбходТЗ(Ложь);
 Т3 = ЗаполнитьОбходТЗ(Истина);
 Т4 = ЗаполнитьПрямойОбход(Ложь);
 Т5 = ЗаполнитьПрямойОбход(Истина);
 
КонецПроцедуры
   

  // OldthiefXXX
//Процедура  формирует и выводит отчет по переданноме запросу
// Параметры :
//* ПараметрыОтчета - структура
// Пример параметров:
//* ПараметрыОтчета = Новый Структура;
//* ПараметрыОтчета .Вставить("Запрос",текст);
//* ПараметрыЗапроса=Новый Структура;
//* ПараметрыЗапроса.Вставить("Номенклатура",ТоварИзАртикула.Ссылка);
//* ПараметрыЗапроса.Вставить("НачалоМесяца",НачалоМесяца(ДатаВедомости));
//* ПараметрыЗапроса.Вставить("КонецМесяца",КонецМесяца(ДатаВедомости));
//* ПараметрыОтчета .Вставить("ПараметрыЗапроса",ПараметрыЗапроса);

Процедура УниверсальныйОтчетПоЗапросу(ПараметрыОтчета)
Запрос=новый Запрос;
Запрос.Текст=ПараметрыОтчета.Запрос;

Для каждого ПАРАМЕТР из ПараметрыОтчета.ПараметрыЗапроса Цикл
 Запрос.УстановитьПараметр(ПАРАМЕТР.Ключ,ПАРАМЕТР.Значение);
КонецЦикла;

Тз=Запрос.Выполнить().Выгрузить();

Табл=Новый ТабличныйДокумент;
Макет = ЭтотОбъект.ПолучитьМакет("Макет");
ОбластьШапкаОсновной=Макет.ПолучитьОбласть("Шапка|Основной");
ОбластьСтрокаОсновной=Макет.ПолучитьОбласть("Строка|Основной");
ОбластьИтогОсновной=Макет.ПолучитьОбласть("Итог|Основной");
ОбластьШапкаДОП=Макет.ПолучитьОбласть("Шапка|Показатели");
ОбластьСтрокаДОП=Макет.ПолучитьОбласть("Строка|Показатели");
ОбластьИтогДОП=Макет.ПолучитьОбласть("Итог|Показатели");
Табл.Вывести(ОбластьШапкаОсновной);

Для Каждого Колонка из Тз.Колонки ЦИКЛ
 ОбластьШапкаДОП.Параметры.ИмяПоказателя=Колонка.Имя;
 Табл.Присоединить(ОбластьШапкаДОП);
КонецЦикла;

счетчик=0;
Для каждого стр из Тз Цикл
 счетчик=счетчик+1;
 ОбластьСтрокаОсновной.Параметры.счетчик=счетчик; 
 Табл.Вывести(ОбластьСтрокаОсновной);
  Для Каждого Колонка из Тз.Колонки ЦИКЛ
   ОбластьСтрокаДОП.Параметры.ЗначениеКолонки=стр[Колонка.Имя];
   Табл.Присоединить(ОбластьСтрокаДОП);
  КонецЦикла;
КонецЦикла;

Табл.Вывести(ОбластьИтогОсновной);

Для Каждого Колонка из Тз.Колонки ЦИКЛ
 ОбластьИтогДОП.Параметры.Итог=Тз.Итог(Колонка.Имя);
 Табл.Присоединить(ОбластьИтогДОП);
КонецЦикла;

Табл.ТолькоПросмотр=истина;
Табл.Показать();
КонецПроцедуры   

  //ТПОтчета - Табличное поле с формы (Таблица значений) с данными
ПострПечать = Новый ПостроительОтчета;
    ПострПечать.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТПОтчета);
    ПострПечать.МакетОформления = ПолучитьМакетОформления(СтандартноеОформление.Интерфейс);
    ПострПечать.Выполнить();
    Для каждого Колонка Из ПострПечать.ВыбранныеПоля Цикл
        Колонка.Представление = ТПОтчета.Колонки[Колонка.Имя].Заголовок;
    КонецЦикла; 
    ПострПечать.Вывести();   

 //Процедура  формирует и выводит отчет по переданной таблице значений
// Параметры :
// ТЗ - ТаблицаЗначений
Процедура УниверсальныйОтчетПоТЗ(ТЗ)

Табл=Новый ТабличныйДокумент;
Макет = ЭтотОбъект.ПолучитьМакет("Макет");
ОбластьШапкаОсновной=Макет.ПолучитьОбласть("Шапка|Основной");
ОбластьСтрокаОсновной=Макет.ПолучитьОбласть("Строка|Основной");
ОбластьИтогОсновной=Макет.ПолучитьОбласть("Итог|Основной");
ОбластьШапкаДОП=Макет.ПолучитьОбласть("Шапка|Показатели");
ОбластьСтрокаДОП=Макет.ПолучитьОбласть("Строка|Показатели");
ОбластьИтогДОП=Макет.ПолучитьОбласть("Итог|Показатели");
Табл.Вывести(ОбластьШапкаОсновной);

Для Каждого Колонка из Тз.Колонки ЦИКЛ
 ОбластьШапкаДОП.Параметры.ИмяПоказателя=Колонка.Имя;
 Табл.Присоединить(ОбластьШапкаДОП);
КонецЦикла;

счетчик=0;
Для каждого стр из Тз Цикл
 счетчик=счетчик+1;
 ОбластьСтрокаОсновной.Параметры.счетчик=счетчик; 
 Табл.Вывести(ОбластьСтрокаОсновной);
  Для Каждого Колонка из Тз.Колонки ЦИКЛ
   ОбластьСтрокаДОП.Параметры.ЗначениеКолонки=стр[Колонка.Имя];
   Табл.Присоединить(ОбластьСтрокаДОП);
  КонецЦикла;
КонецЦикла;
Табл.Вывести(ОбластьИтогОсновной);

Для Каждого Колонка из Тз.Колонки ЦИКЛ
 ОбластьИтогДОП.Параметры.Итог=Тз.Итог(Колонка.Имя);
 Табл.Присоединить(ОбластьИтогДОП);
КонецЦикла;

Табл.Показать();
КонецПроцедуры   

 
//Вывести таблицу значений
Процедура ПечатьТЗвТаб(ТЗ, Заголовок = "",КолонкиПоНазваниям = 0) Экспорт
	Перем ТТЗ;
	ТЗ.Выгрузить(ТТЗ);
	МаксШирина = 50;    // максимальная ширина колонки 
	СпШирина = СоздатьОбъект("СписокЗначений"); // список ширин колонок по таблице
	Для сч = 1 по ТТЗ.КоличествоКолонок() Цикл
		Если КолонкиПоНазваниям = 0  Тогда
			ИмяРек = ТТЗ.ПолучитьПараметрыКолонки(сч);
		Иначе
			ИмяРек = "";
			ТТЗ.ПолучитьПараметрыКолонки(сч,,,,ИмяРек,);
		КонецЕсли;
		СпШирина.ДобавитьЗначение(СтрДлина(ИмяРек)*1.2); // с поправкой на размер шрифта
	КонецЦикла;	
	
	// просто печать таблицы - вывод всех строк и колонок
	// числовые значения - по правому краю. Автоподбор ширины - в пределах МаксШирина
	Таб=СоздатьОбъект("Таблица");
	Таб.ИсходнаяТаблица("ПечатьТЗ");
	Если СокрЛП(Заголовок) <> "" Тогда
		Таб.ВывестиСекцию("Шапка");
	КонецЕсли;
	// заголовки таблицы
	Таб.ВывестиСекцию("Строка|Общая");
	Для сч=1 по ТТЗ.КоличествоКолонок() Цикл
		Если КолонкиПоНазваниям = 0  Тогда
			ИмяРек = ТТЗ.ПолучитьПараметрыКолонки(сч);
		Иначе
			ИмяРек = ""; 
			Ном = "";
			ТТЗ.ПолучитьПараметрыКолонки(сч,,,,ИмяРек,);
		КонецЕсли;
		Таб.ПрисоединитьСекцию("Строка|Столбец");  
	КонецЦикла;
	ВысотаШапки = Таб.ВысотаТаблицы();
	// данные таблицы по строкам
	ТТЗ.ВыбратьСтроки();
	Пока ТТЗ.ПолучитьСтроку()=1 Цикл
		Ном = ТТЗ.НомерСтроки;
		Таб.ВывестиСекцию("Строка|Общая");
		Выс = Таб.ВысотаТаблицы();
		Для сч=1 по ТТЗ.КоличествоКолонок() Цикл
			ИмяРек=ТТЗ.ПолучитьЗначение(Ном,сч);
			Таб.ПрисоединитьСекцию("Строка|Столбец");
			Если ТипЗначения(ИмяРек) = 1 Тогда
				Обл = Таб.Область("R"+Выс+"C"+(Сч+1)); // ячейка в которую поместили данные
				Обл.ГоризонтальноеПоложение(2); // числа - вправо
			КонецЕсли;
			НачШирина = СпШирина.ПолучитьЗначение(Сч);
			Ширина = СтрДлина(ИмяРек);
			СпШирина.УстановитьЗначение(Сч,Макс(НачШирина,Ширина));
		КонецЦикла;
	КонецЦикла;
	
	Для сч = 1 по СпШирина.РазмерСписка() Цикл
		Обл = Таб.Область("R"+ВысотаШапки+"C"+(Сч+1));
		// форматируем ширину таблицы
		Ширина = Мин(МаксШирина,2+СпШирина.ПолучитьЗначение(Сч));
		Обл.ШиринаСтолбца(Ширина);   
		// форматируем заголовок
		Обл.Полужирный(1);
	КонецЦикла;	
	Таб.Показать(Заголовок);
	Таб.ТолькоПросмотр(1);
КонецПроцедуры 

 Процедура глВывестиТаблицуЗначений(ТаблицаЗначений, Заголовок = "") Экспорт
Перем Таб, ИИ, ЖЖ, НазваниеКолонки, ТипКолонки, Ширина, Значение, Сообщение;

Таб = СоздатьОбъект("Таблица");

Если ТипЗначенияСтр(ТаблицаЗначений) <> "ТаблицаЗначений" Тогда
Сообщение = "В процедуру ""глВывестиТаблицуЗначений()"" передана переменная не типа ""ТаблицаЗначений"", "+
"а типа """+СокрЛП(ТипЗначенияСтр(ТаблицаЗначений))+"""";
Таб.Область(1, 1, 1, 1).Текст = Сообщение;
Таб.Область(1, 1, 1, 1).ШиринаСтолбца(СтрДлина(Сообщение));

Таб.ТолькоПросмотр(1);
Таб.Показать("Не таблица значений: "+Заголовок);

Возврат;
КонецЕсли;

Для ЖЖ = 1 по ТаблицаЗначений.КоличествоКолонок() цикл
ТаблицаЗначений.ПолучитьПараметрыКолонки(ЖЖ,,,, НазваниеКолонки);
Таб.Область(1, ЖЖ, 1, ЖЖ).Текст = СокрЛП(НазваниеКолонки);
Таб.Область(1, ЖЖ, 1, ЖЖ).РамкаОбвести(5, 5, 5, 5);
Таб.Область(1, ЖЖ, 1, ЖЖ).ВертикальноеПоложение(3);
Таб.Область(1, ЖЖ, 1, ЖЖ).ГоризонтальноеПоложение(3);
Таб.Область(1, ЖЖ, 1, ЖЖ).РазмерШрифта(7);
Таб.Область(1, ЖЖ, 1, ЖЖ).Полужирный(1);

Ширина = Таб.Область(1, ЖЖ, 1, ЖЖ).ШиринаСтолбца();
Ширина = Макс(Ширина, СтрДлина(СокрЛП(НазваниеКолонки)));
Таб.Область(1, ЖЖ, 1, ЖЖ).ШиринаСтолбца(Ширина);
КонецЦикла;

Для ИИ = 1 по ТаблицаЗначений.КоличествоСтрок() цикл
Для ЖЖ = 1 по ТаблицаЗначений.КоличествоКолонок() цикл
Значение = ТаблицаЗначений.ПолучитьЗначение(ИИ, ЖЖ);
Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).Текст = Значение;
Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).Расшифровка(Значение, 0);
Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).РамкаОбвести(3, 0, 3, 0);

Ширина = Таб.Область(1, ЖЖ, 1, ЖЖ).ШиринаСтолбца();
Ширина = Макс(Ширина, СтрДлина(СокрЛП(Строка(Значение))));
Таб.Область(1, ЖЖ, 1, ЖЖ).ШиринаСтолбца(Ширина);

ТаблицаЗначений.ПолучитьПараметрыКолонки(ЖЖ, ТипКолонки); ;
Если ТипКолонки = "Число" тогда
Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).ГоризонтальноеПоложение(2);
КонецЕсли;
Если ИИ = ТаблицаЗначений.ТекущаяСтрока() тогда
Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).ЦветФона(255, 0, 0);
КонецЕсли;
КонецЦикла;
КонецЦикла;

Таб.ТолькоПросмотр(1);
Таб.Показать("Таблица значений: "+Заголовок);
КонецПроцедуры