Как программно распечатать внешнюю печатную форму?

// Описание доработки: Вызывает данные функции из справочника ВПФ по строгому соответствию имени и передает им объект.
Процедура ПечатьИзВПФ(ИмяВПФ);
	СсылкаНаВПФ = Справочники.ВнешниеОбработки.НайтиПоНаименованию(ИмяВПФ);
	Если СсылкаНаВПФ.Пустая() Тогда
		Сообщить("В справочнике 'Внешние обработки' не нашли внешнюю печатную форму с наименованием '"+ИмяВПФ+"'");
		Возврат;
	КонецЕсли;
		
	Попытка
		ИмяВременногоФайла = КаталогВременныхФайлов()+"тмп_впф.epf";
	Исключение
		Сообщить ("Невозможно создать файл обработке в каталоге временных файлов <<"+
		+КаталогВременныхФайлов()+">>. Возможно, не хватает прав доступа в Windows в папку для данного сеанса 1С ");
		Возврат;
	КонецПопытки;	
	
	ДвоичныеДанные = СсылкаНаВПФ.ХранилищеВнешнейОбработки.Получить();		
	ДвоичныеДанные.Записать(ИмяВременногоФайла);
	
	Попытка
		ОбрОбъект = ВнешниеОбработки.Создать(ИмяВременногоФайла);
		ОбрОбъект.ДокОбъект = ЭтотОбъект; // НЕ исп. метод скопировать. Передать ТАК - особенности ВДГБ;
	Исключение
		Сообщить("Ошибка создания объекта из временного файла обработки "+ИмяВременногоФайла);
		Возврат;
	КонецПопытки;
	
	// Проба печати
	Попытка
		ТаблДок = ОбрОбъект.Печать();
		ТаблДок.Вывести();
	Исключение
		А=1; // Точка останова для отладки!
		Сообщить(ПодробноеПредставлениеОшибки(ИнформацияОбОшибке() )); // ВНЕШНЮЮ печатную форму из справончика ВПФ можно спокойно поправить!
	КонецПопытки;	
			
КонецПроцедуры	
//###Дор- 

ДвоичныеДанные = СсылкаНаВПФ.ХранилищеВнешнейОбработки.Получить();        
    ДвоичныеДанные.Записать(ИмяВременногоФайла);

Попытка Исключение

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

для каждого ТабДок из табДокиМассив цикл
		//массив
		коллекция = 		УправлениеПечатьюКлиент.НоваяКоллекцияПечатныхФорм("Макет");
		//структура  в массиве
		СтруктураКоллекции = коллекция.получить(0);
		СтруктураКоллекции.ТабличныйДокумент = табДок.ТабДок;
		
		УправлениеПечатьюКлиент.ПечатьДокументов(коллекция,,ЭтаФорма);
		//УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм,						"Макет", "Макет",						ТабДок);
		
		//ТабДок.Показать();
	конеццикла;

&НаСервереБезКонтекста
Процедура ПечатьИзВПФ(ИмяВПФ, СсылкаНаДокумент);
	
    СсылкаНаВПФ = Справочники.ДополнительныеОтчетыИОбработки.НайтиПоНаименованию(ИмяВПФ);
	
    Если СсылкаНаВПФ.Пустая() Тогда
        Сообщить("В справочнике ""Дополнительные отчеты и обработки"" не найдена внешнюю печатную форму с наименованием '" + ИмяВПФ + "'");
        Возврат;
    КонецЕсли;
	
    Попытка
        ОбработкаОбъект = ДополнительныеОтчетыИОбработки.ОбъектВнешнейОбработки(СсылкаНаВПФ);
    Исключение
        Сообщить("Не удалось напечатать """ + ИмяВПФ + "'"". Ошибка создания объекта дополнительной ПФ");
        Возврат;
    КонецПопытки;
    
    МассивОбъектов = Новый Массив;
    МассивОбъектов.Добавить(СсылкаНаДокумент);
    
    ОбъектыПечати = Новый СписокЗначений;
    ОбъектыПечати.Добавить(СсылкаНаДокумент);
	
	КоллекцияПечатныхФорм = УправлениеПечатью.ПодготовитьКоллекциюПечатныхФорм("ЧекККМ");
    ПараметрыВывода = УправлениеПечатью.ПодготовитьСтруктуруПараметровВывода();
    
    Попытка
        ТабличныйДокумент = ОбработкаОбъект.СформироватьПечатнуюФорму(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода);
	Исключение
      	Сообщить("Не удалось напечатать """ + ИмяВПФ + "'""." + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
    КонецПопытки;    
            
КонецПроцедуры

ПечатьИзВПФКлиент("ПечатнаяФормаСчетаОферты", "СчетОфертаНаОплату", СчетСсылка, ЭтаФорма);


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

Функция НайтиВПФПоИмениОбъекта(ИмяВПФ) Экспорт     
	Возврат Справочники.ДополнительныеОтчетыИОбработки.НайтиПоРеквизиту("ИмяОбъекта", ИмяВПФ);
КонецФункции