пятница, 20 декабря 2013 г.

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

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

Комментариев нет:

Неактивный атрибут "скрытый" или как снять атрибут скрытый после вируса

Некоторые пользователи компьютеров часто сталкиваются с проблемой, когда папки и файлы вдруг становятся скрытыми. Или, проще говоря, исчез...