HelpF.pro

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

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


Код 1C v 7.x
  
Процедура ПросмотрДокумента()
	Таб = СоздатьОбъект("Таблица");
	Таб.ИсходнаяТаблица("РасходныйДокумент");
	Секция = Таб.ПолучитьСекцию("Шапка");
	Таб.ВывестиСекцию(Секция);
	Секция = Таб.ПолучитьСекцию("ПодписьТаблицы");
	Таб.ВывестиСекцию(Секция);
	ВыбратьСтроки();
	Пока  ПолучитьСтроку()=1 Цикл 
		Секция = Таб.ПолучитьСекцию("ТабличнаяЧасть");
		Таб.ВывестиСекцию(Секция);
	КонецЦикла;                       
	Секция = Таб.ПолучитьСекцию("Подвал");	
	Таб.ВывестиСекцию(Секция);
	Таб.ТолькоПросмотр(0);
	Таб.Показать();
КонецПроцедуры 

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq/view/232.html