Универсальная пакетная печать документов для типовых конфигураций 1С 8.2 — 8.3

А теперь с самого начала разберемся, как она работает по внутренностям.

В процедуре формы ПриСозданииНаСервере заполняем список типов документов по метаданным и так, чтобы в модуле менеджера была процедура ДобавитьКомандыПечати, это мы определяем через попытку.

 МетаданныеДокументы = Метаданные.Документы;
КоллекцияКомандПечати = УправлениеПечатью.СоздатьКоллекциюКомандПечати();

Для Каждого Эл Из МетаданныеДокументы Цикл
КоллекцияКомандПечати.Очистить();
Попытка
Документы[Эл.Имя].ДобавитьКомандыПечати(КоллекцияКомандПечати);
Если КоллекцияКомандПечати.Количество() > 0 Тогда
Элементы.ВидДокументов.СписокВыбора.Добавить(Эл.Имя, Эл.Синоним);
Элементы.ГруппаПечФормы.Видимость = Ложь;
КонецЕсли;
Исключение
КонецПопытки;
КонецЦикла;  

По изменению типа документа отрисовываем все необходимое, добавляем программно реквизиты формы и элементы формы методами ИзменитьРеквизиты и  Элементы.Добавить(Эл.Имя, Тип(«ПолеФормы»), ТаблицаФормы)

 Если Элементы.Найти(ИмяРеквизита) = Неопределено Тогда
РеквизитДобавлен = Ложь;
ОписаниеТиповДляРеквизита = Новый ОписаниеТипов("ДинамическийСписок");
ТаблЗначений = Новый РеквизитФормы(ИмяРеквизита, ОписаниеТиповДляРеквизита);
ДобавляемыеРеквизиты = Новый Массив;
ДобавляемыеРеквизиты.Добавить(ТаблЗначений);
ИзменитьРеквизиты(ДобавляемыеРеквизиты);
КонецЕсли;

РеквизитТаблЗначений = ЭтаФорма[ИмяРеквизита];
РеквизитТаблЗначений.ОсновнаяТаблица = ТаблицаРеквизита;

Если РеквизитДобавлен Тогда
Элементы.Удалить(Элементы[ИмяРеквизита]);
КонецЕсли;

ТаблицаФормы = Элементы.Добавить(ИмяРеквизита, Тип("ТаблицаФормы"), Элементы.ГруппаДокСписок);
ТаблицаФормы.ПутьКДанным = ИмяРеквизита;

Для Каждого Эл Из Метаданные.Документы[Имядок].СтандартныеРеквизиты Цикл
Если Эл.Имя = "Ссылка" Тогда
Продолжить;
КонецЕсли;
НоваяКолонкаТаблицы = Элементы.Добавить(Эл.Имя, Тип("ПолеФормы"), ТаблицаФормы);
НоваяКолонкаТаблицы.ПутьКДанным = ИмяРеквизита + "."+ Строка(Эл.Имя);
КонецЦикла;

Получаем список документов для печати по СКД выводом в таблицу,  слизывая настройки для СКД с динамического списка.

Проше говоря, создаем программно СКД, берем настройки динамического списка методами ПолучитьИсполняемуюСхемуКомпоновкиДанных и ПолучитьИсполняемыеНастройкиКомпоновкиДанных и далее выводим полученное в таблицу через ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений

 СхемаКомпоновкиДанных = Элементы[РеквТабл].ПолучитьИсполняемуюСхемуКомпоновкиДанных();
НастройкиКомпоновкиДанных = Элементы[РеквТабл].ПолучитьИсполняемыеНастройкиКомпоновкиДанных();
НастройкиКомпоновкиДанных.Структура.Очистить();

ВыбранноеПолеКомпоновкиДанных = НастройкиКомпоновкиДанных.Структура.Добавить(Тип("ГруппировкаКомпоновкиДанных"));
АвтоВыбранноеПолеКомпоновкиДанных = НастройкиКомпоновкиДанных.Структура[0].Выбор.Элементы.Добавить(Тип("АвтоВыбранноеПолеКомпоновкиДанных"));

ВыбранноеПолеКомпоновкиДанных = НастройкиКомпоновкиДанных.Выбор.Элементы.Добавить(Тип("ВыбранноеПолеКомпоновкиДанных"));
ВыбранноеПолеКомпоновкиДанных.Поле = Новый ПолеКомпоновкиДанных("Ссылка");

КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных();
Макет = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных,НастройкиКомпоновкиДанных,,,Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));

ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновки.Инициализировать(Макет);

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

И по кнопке печать формируем печатные формы, тут все почти стандартно 

 Для Каждого Эл Из СписокДок Цикл
Для Каждого СтрПечФорма Из СтрокиПечать Цикл
ОбъектыПечати = Новый Массив();
ОбъектыПечати.Добавить(Эл);
СтрПечФорма.ОбъектыПечати = ОбъектыПечати;

УправлениеПечатьюСлужебныйКлиент.ВыполнитьПодключаемуюКомандуПечатиЗавершение(Истина, СтрПечФорма);

КонецЦикла;
КонецЦикла;