В начало

Печать установок документа

 

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

   Если Док.Выбран () = 0 Тогда

      Возврат;

   КонецЕсли;

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

   Таб.ИсходнаяТаблица ("ПечатьИстории");

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

   Ист = СоздатьОбъект  ("Периодический");

   Ист.ВыбратьПоДокументу (Док);

   Пока Ист.ПолучитьЗначение () = 1 Цикл

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

   КонецЦикла;

   Таб.Опции (0, 0, 0, 0);

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

   Таб.Показать ("Отчет");

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