Вызов стандартной печатной формы из обработки

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

// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры

&НаКлиенте
Процедура Подключаемый_ВыполнитьКоманду(Команда)

	если ПолучитьСписокДокументовНаПечать()=0 тогда
		ПоказатьОповещениеПользователя("Актов не найдено.");
		Возврат
	КонецЕсли;
	
	элементы.ТчДокументыНаПечать.ВыделенныеСтроки.Очистить();
	Для Каждого Стр из ТчДокументыНаПечать цикл
		элементы.ТчДокументыНаПечать.ВыделенныеСтроки.Добавить(Стр.ПолучитьИдентификатор());	
	КонецЦикла;

	УправлениеПечатьюКлиент.ВыполнитьПодключаемуюКомандуПечати(Команда, ЭтаФорма, элементы.ТчДокументыНаПечать);
	
КонецПроцедуры

&НаСервере
Процедура ДобавитьКомандыПечати(Форма, КомандыПечати, Знач МестоРазмещенияКоманд = Неопределено)
Если МестоРазмещенияКоманд = Неопределено Тогда
		МестоРазмещенияКоманд = Форма.КоманднаяПанель;
	КонецЕсли;
	
	ОднаКомандаПечати = КомандыПечати.Количество() = 1;
	Если Не ОднаКомандаПечати Тогда
		ПодменюПечать = Форма.Элементы.Добавить(МестоРазмещенияКоманд.Имя + "ПодменюПечать", Тип("ГруппаФормы"), МестоРазмещенияКоманд);
		ПодменюПечать.Вид = ВидГруппыФормы.Подменю;
		ПодменюПечать.Заголовок = НСтр("ru = 'Печать'");
		ПодменюПечать.Картинка = БиблиотекаКартинок.Печать;
		
		МестоРазмещенияКоманд = ПодменюПечать;
	КонецЕсли;
	
	Для Каждого ОписаниеКомандыПечати Из КомандыПечати Цикл
		НомерКоманды = ОписаниеКомандыПечати.Владелец().Индекс(ОписаниеКомандыПечати);
		ИмяКоманды = МестоРазмещенияКоманд.Имя + "КомандаПечати" + НомерКоманды;
		
		КомандаФормы = Форма.Команды.Добавить(ИмяКоманды);
		КомандаФормы.Действие = "Подключаемый_ВыполнитьКомандуПечати";
		КомандаФормы.Заголовок = ОписаниеКомандыПечати.Представление;
		КомандаФормы.ИзменяетСохраняемыеДанные = Ложь;
		КомандаФормы.Отображение = ОтображениеКнопки.КартинкаИТекст;
		
		Если ЗначениеЗаполнено(ОписаниеКомандыПечати.Картинка) Тогда
			КомандаФормы.Картинка = ОписаниеКомандыПечати.Картинка;
		ИначеЕсли ОднаКомандаПечати Тогда
			КомандаФормы.Картинка = БиблиотекаКартинок.Печать;
		КонецЕсли;
		
		НовыйЭлемент = Форма.Элементы.Добавить(МестоРазмещенияКоманд.Имя + ИмяКоманды, Тип("КнопкаФормы"), МестоРазмещенияКоманд);
		НовыйЭлемент.Вид = ВидКнопкиФормы.КнопкаКоманднойПанели;
		НовыйЭлемент.ИмяКоманды = ИмяКоманды;

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

Процедура ДобавитьКомандыПечати(КомандыПечати) Экспорт
	
	КомандыПечатиСчет = УправлениеПечатью.КомандыПечатиФормы("Документ.АктСверкиВзаиморасчетов.Форма.ФормаСписка");
	КомандыПечатиСчет.ЗаполнитьЗначения("СписокГруппаПечатиСчета", "МестоРазмещения");
	ОбщегоНазначенияКлиентСервер.ДополнитьТаблицу(КомандыПечатиСчет, КомандыПечати);
	
	
КонецПроцедуры

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