1С COM объект BZPDF

Функция ПолучитьФайлПДФ(Таб) Экспорт
	
	ФайлВФорматеPDF = ПолучитьИмяВременногоФайла("pdf");
	
	Принтер = Новый ComObject("Bullzip.PDFPrinterSettings");
	Принтер.SetValue("output", ФайлВФорматеPDF);
	Принтер.SetValue("ShowSaveAS", "nofile");
	Принтер.SetValue("ShowProgress", "no");
	Принтер.SetValue("ShowProgressFinished", "no");
	Принтер.SetValue("RememberLastFileName", "no");
	Если ВыводитьНастройкиPDF Тогда 
		Принтер.SetValue("ShowSettings", "yes");
	Иначе
		Принтер.SetValue("ShowSettings", "never");
	КонецЕсли;
	Принтер.SetValue("ShowPDF", "no");
	Принтер.SetValue("ConfirmOverwrite","no");
	Принтер.SetValue("OwnerPassword","Pass4PDF");
	Принтер.SetValue("Permissions",61636);
	Принтер.WriteSettings();
	Таб.Автомасштаб = Истина;
	Таб.Имяпринтера = "Bullzip PDF Printer";
	PDFФайл = Новый Файл(ФайлВФорматеPDF);
	Таб.Напечатать(Истина);
	Таб.Записать(ФайлВФорматеPDF, ТипФайлаТабличногоДокумента.PDF);
	
	Ctrl = Новый COMОбъект("MSScriptControl.ScriptControl");
	Ctrl.Language = "vbscript";
	Ctrl.AddCode("
	|Function SpecialFolder()
	|    Set Shell = CreateObject(""WScript.Shell"")
	|    SpecialFolder = Shell.RegRead(""HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersio­n\Explorer\Shell Folders\Desktop"")
	|End Function");

	ПолноеИмя = Ctrl.Run("SpecialFolder")+"\"+PDFФайл.Имя;
	мPDFФайл = Новый Файл(ПолноеИмя);
	Пока НЕ мPDFФайл.Существует() Цикл
		ОбработкаПрерыванияПользователя();
		Если мPDFФайл.Существует() Тогда
			PDFФайл = мPDFФайл;
		КонецЕсли;	
	КонецЦикла; 
	
	Возврат PDFФайл;
	
КонецФункции