1С 7.x : Как сформировать, вывести на печать таблицу, табличный документ

  //Получение макета и областей вывода

	Макет = ПолучитьМакет("Отчет"); 

	ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок"); 

	ОбластьКартинки = Макет.ПолучитьОбласть("ОбластьСКартинкой")

	ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");

	ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали"); 

	

	ТабДок = Новый ТабличныйДокумент; 

	//Вывод параметров в область

	ОбластьЗаголовок.Параметры.ДатаНач = ДатаНач; 

	ОбластьЗаголовок.Параметры.ДатаКон = ДатаКон; 

	//Вывод области в табличный документ

	ТабДок.Вывести(ОбластьЗаголовок); 

	//Вывод картинки

	Картинка = Новый Картинка(ПутьККартинке); 

   // Элемент управления "Логотип" входит в коллекцию картинок области. 

	ОбластьКартинки.Рисунки.Логотип.Картинка = Картинка; 

	ТабДок.Вывести(ОбластьКартинки); 

    //Выведем шапку таблицы

	ТабДок.Вывести(ОбластьШапкаТаблицы); 

	//Выведм строки из Результата запроса

    ВыборкаДетали = Результат.Выбрать(); 

	Пока ВыборкаДетали.Следующий() Цикл 

		//Заполним параметры значениями свойств переданного объекта. Заполняются только те параметры, имена которых совпадают с именами свойств объекта.

		ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетали); 

		//Запишем в и область Описание примечание из запроса

		ОбластьДетальныхЗаписей.Область("Описание").Примечание.Текст = ВыборкаДетали.СодержаниеСобытия; 

		ТабДок.Вывести(ОбластьДетальныхЗаписей); 

	КонецЦикла; 

	//Зададим параметры вывода

	ТабДок.АвтоМасштаб=истина; // уместить на одну страницу

	ТабДок.ТолькоПросмотр=истина;

	ТабДок.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;

	ТабДок.ОтображатьСетку=Ложь;

	ТабДок.ОтображатьЗаголовки=Ложь;

	//Выведем полученный документ

	ТабДок.Показать();    

  

Процедура ПросмотрДокумента()

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

	Таб.ИсходнаяТаблица("РасходныйДокумент");

	Секция = Таб.ПолучитьСекцию("Шапка");

	Таб.ВывестиСекцию(Секция);

	Секция = Таб.ПолучитьСекцию("ПодписьТаблицы");

	Таб.ВывестиСекцию(Секция);

	ВыбратьСтроки();

	Пока  ПолучитьСтроку()=1 Цикл 

		Секция = Таб.ПолучитьСекцию("ТабличнаяЧасть");

		Таб.ВывестиСекцию(Секция);

	КонецЦикла;                       

	Секция = Таб.ПолучитьСекцию("Подвал");	

	Таб.ВывестиСекцию(Секция);

	Таб.ТолькоПросмотр(0);

	Таб.Показать();

КонецПроцедуры