Попытка

        ПДФ_принтер = Новый COMОбъект("bioPDF.PDFPrinterSettings");

    Исключение

        #Если Клиент Тогда

            Предупреждение("Не удалось подключиться к PDF-принтеру!", 60);

        #КонецЕсли

        Возврат;

    КонецПопытки;

    ПДФ_принтер_имя = ПДФ_принтер.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);



    ПечатныйДокумент.ИмяПринтера = ПДФ_принтер_имя;

    ПечатныйДокумент.АвтоМасштаб = Истина;

    ПечатныйДокумент.Напечатать();   

 

//Таб - ТабличныйДокумент

//ИмяФайла – путь для сохранения файла PDF  (например «D:\Torg12.pdf»)

Процедура СоздатьФайлПДФ(Таб, ИмяФайла)



Попытка

ПДФПринтер = Новый ComObject(«Bullzip.PDFPrinterSettings»);

ПДФПринтер.SetValue(«output», ИмяФайла);

ПДФПринтер.SetValue(«ShowSaveAS», «never»);

ПДФПринтер.SetValue(«ShowProgress», «no»);

ПДФПринтер.SetValue(«ShowProgressFinished», «no»);

ПДФПринтер.SetValue(«ShowSettings», «never»);

ПДФПринтер.SetValue(«ShowPDF», «no»);

ПДФПринтер.SetValue(«ConfirmOverwrite»,»no»);

ПДФПринтер.WriteSettings();

Таб.Автомасштаб = Истина;

Таб.ИмяПринтера = «Bullzip PDF Printer»;Таб.Напечатать(Истина);

PDFФайл = Новый Файл(ИмяФайла);



Пока НЕ PDFФайл.Существует() Цикл

ОбработкаПрерыванияПользователя();

КонецЦикла;



Исключение



Сообщить(ОписаниеОшибки());

Сообщить(«Скорее всего необходимо установить или переустановить «»Bullzip PDF Printer»);

КонецПопытки;

//устанавливаем принтер по умолчанию

Таб.ИмяПринтера = ПолучитьПринтерПоУмолчанию();

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

 //получаем принтер по умолчанию

Функция ПолучитьПринтерПоУмолчанию()



Скрипт = Новый ComObject(«MSScriptControl.ScriptControl»);

Скрипт.Language = «vbscript»;

Скрипт.AddCode(»

|Function GetDefaultPrinter()

|GetDefaultPrinter=vbNullString

|Set objWMIService=GetObject(«»winmgmts:»" _

|& «»{impersonationLevel=impersonate}!\\.\root\cimv2″»)

|Set colInstalledPrinters=objWMIService.ExecQuery _

|(«»S_elect * from Win32_Printer»")

|For Each objPrinter in colInstalledPrinters

|If objPrinter.Attributes and 4 Then

|GetDefaultPrinter=objPrinter.Name

|Exit For

|End If

|Next

|End Function»);

Возврат СокрЛП(Скрипт.run(«GetDefaultPrinter»));

КонецФункции