Печать готовых pdf файлов из 1с

Функция НапечататьФайлPDF(ПечатныйДокумент)
	
	Попытка
		ПДФ_принтер = Новый COMОбъект("bioPDF.PDFPrinterSettings");
	Исключение
		#Если Клиент Тогда
			Сообщить("Не удалось подключиться к PDF-принтеру! Обратитесь к администратору для установки.");
		#КонецЕсли
		Возврат "";
	КонецПопытки;
	ПДФ_принтер_имя = ПДФ_принтер.GetPrinterName();
	ИмяФайла = ПолучитьИмяВременногоФайла("pdf");

    ПДФ_принтер.SetValue("output",    ИмяФайла);
    ПДФ_принтер.SetValue("ConfirmOverwrite", "yes");
    ПДФ_принтер.SetValue("ShowSaveAS",   "never");
    ПДФ_принтер.SetValue("ShowSettings",  "never");
    ПДФ_принтер.SetValue("ShowPDF",    "no");
    ПДФ_принтер.SetValue("Target",    "printer");

    ПДФ_принтер.SetValue("Subject",  "Report generated at " + ТекущаяДата());
    ПДФ_принтер.SetValue("UseThumbs", "yes");
    ПДФ_принтер.SetValue("Zoom",  "100");

	//ПДФ_принтер.SetValue("WatermarkFontSize", "10");
	//ПДФ_принтер.SetValue("WatermarkTransparency", "50");
	//ПДФ_принтер.SetValue("WatermarkVerticalPosition", "bottom");
	//ПДФ_принтер.SetValue("WatermarkHorizontalPosition", "right");
	//ПДФ_принтер.SetValue("WatermarkVerticalAdjustment", "3");
	//ПДФ_принтер.SetValue("WatermarkHorizontalAdjustment", "1");
	//ПДФ_принтер.SetValue("WatermarkRotation", "90");
	//ПДФ_принтер.SetValue("WatermarkColor", "#ff0000");
	//ПДФ_принтер.SetValue("WatermarkOutlineWidth", "1");
    ПДФ_принтер.WriteSettings(True);

    ПечатныйДокумент.ИмяПринтера = ПДФ_принтер_имя;
    ПечатныйДокумент.АвтоМасштаб = Истина;
    ПечатныйДокумент.Напечатать();
	
	//пауза
	ТекущееВремя = ТекущаяДата();
	Пока ТекущееВремя + 10 > ТекущаяДата() Цикл
		//
		А = ТекущаяДата();
	КонецЦикла;

	
	Возврат ИмяФайла;
	
КонецФункции

// Процедура выполняет попытку напечатать pdf-файлы из списка в фоновом режиме без участия пользователя
// Параметры:
//		МассивФайлов - массив элементов типа "Файл", либо массив структур с ключами "ПолноеИмя" и "Имя"
//		ИмяПринтера  - имя принтера, на который необходимо отправить задание
//
Процедура ФоноваяПечатьPDFФайлов(МассивФайлов, ИмяПринтера = "") Экспорт
	
	WshShell = Новый COMОбъект("WScript.Shell");
	ПутьAdobeReader = WshShell.RegRead("HKCR\Software\Adobe\Acrobat\Exe\");
	Если Не ЗначениеЗаполнено(ПутьAdobeReader) Тогда
		Сообщить("Не найдена программа Adobe Reader! Печать pdf-файлов невозможна.", СтатусСообщения.Важное);
		Возврат;
	КонецЕсли;
	
	oLocator = Новый COMОбъект("WbemScripting.SWbemLocator");
	oService = oLocator.ConnectServer("", "", "", ""); //Задания от всех пользователей
	
	oService.Security_.impersonationlevel = 3; //получаем необходимые права
	oService.Security_.Privileges.AddAsString("SeLoadDriverPrivilege");
		
	Для каждого Файл Из МассивФайлов Цикл
		WshShell.Run(ПутьAdobeReader + " /N /T " + Файл.ПолноеИмя + ?(ЗначениеЗаполнено(ИмяПринтера), " " + ИмяПринтера, ""), 0); 
		
		ЗаданиеДобавлено = Ложь;
		ТекущееВремя = ТекущаяДата();
		Пока Не ЗаданиеДобавлено И ТекущаяДата() < ТекущееВремя + 30 Цикл // 30 секунд на добавление задания
			ОбработкаПрерыванияПользователя();
			Для каждого ЗаданиеПечати Из oService.InstancesOf("Win32_PrintJob") Цикл
				ОбработкаПрерыванияПользователя();
			    ЗаданиеДобавлено = ЗаданиеПечати.Document = Файл.Имя;
			КонецЦикла; 	
		КонецЦикла;
		
		Если Не ЗаданиеДобавлено Тогда
			Сообщить("Не удалось отправить на печать файл '" + Файл.Имя + "'.", СтатусСообщения.Важное);
		КонецЕсли; 
	КонецЦикла; 
	
	// Ожидаем завершения печати
	Пока oService.InstancesOf("Win32_PrintJob").Count > 0 Цикл КонецЦикла;
	
	// Получаем имя процесса
	НомерСимвола = Найти(ПутьAdobeReader, "\");
	Пока НомерСимвола > 0 Цикл
		ПутьAdobeReader = Сред(ПутьAdobeReader, НомерСимвола + 1);
		НомерСимвола = Найти(ПутьAdobeReader, "\");
	КонецЦикла;
	// Убиваем процесс
	WshShell.Run("taskkill /f /im " + ПутьAdobeReader, 0);
	
КонецПроцедуры

	Shell = Новый COMОбъект("Shell.Application");
	Shell.ShellExecute("D:\1C82\test.pdf", "", "", "print", 0);

ЗапуститьПриложение("""c:\Program Files (x86)\Foxit Software\Foxit Reader\FoxitReader.exe"" /t " + ИмяФайла + " ""Printer Name""");