Колонтитулы в PDF

&НаСервере
Процедура ВставитьВодяныеЗнаки()
	
        //выбираю файл, пока жестко вшитый
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	Файлы.Ссылка
		|ИЗ
		|	Справочник.Файлы КАК Файлы
		|ГДЕ
		|	Файлы.ВладелецФайла.Наименование = ""Тестирование ПП Входящий ДО 1С (№ 11..2016 от 03.02.2016)""
		|	И Файлы.ТекущаяВерсияРасширение = ""pdf""";
	
	РезультатЗапроса = Запрос.Выполнить().Выбрать();
	
	Пока РезультатЗапроса.Следующий() Цикл
	
	ДвоичныеДанныеФайла = АвтозаполнениеШаблоновФайловСервер.ПолучитьДвоичныеДанныеФайла(РезультатЗапроса.Ссылка);
        ВременныйФайл = "D:\TestFiles\file.pdf";
	ДвоичныеДанныеФайла.Записать(ВременныйФайл);
	
//с помощью скрипта на Visual Basic пользуюсь объектами Acrobat	
	КодФункции =
	"Function PDFinsertWatermark(filename, text)
	|   Dim AcroApp
	|	Dim AVDoc    
	|   Dim PDDoc
	|   Dim objJSO
	|   Dim boResult     
	|	Dim ExportFormat  
	|	Dim NewFilePath    
	|	Dim PDFPath
	|	Dim bNoSave
	|   Set AcroApp = CreateObject(""AcroExch.App"")
	|   Set AVDoc = CreateObject(""AcroExch.AVDoc"")
	|	Call AVDoc.Open(filename, """")
	|   Set AVDoc = AcroApp.GetActiveDoc
	|   Set PDDoc = AVDoc.GetPDDoc
	|   Set objJSO = PDDoc.GetJSObject
	|   Call objJSO.addWatermarkFromText(text, objJSO.app.constants.align.top, ""Arial"", 10, objJSO.Color.black, 0, objJSO.numPages, True, True, True, objJSO.app.constants.align.right, objJSO.app.constants.align.bottom, -50, 30, False, 0.9, False, 0, 1)
	|   nPages = PDDoc.GetNumPages
	|	Call PDDoc.Save(1,filename) 
	|	AVDoc.Close(1)
	|	AcroApp.Exit
	|   PDFinsertWatermark = nPages
	|
	|End Function";

	мПараметры = Новый Массив;
	мПараметры.Добавить("D:\TestFiles\file.pdf");
	мПараметры.Добавить("9896666 OT 21.12.2015");
	
	
	РезультатВыполнения = ВыполнитьСкрипт("vbscript", КодФункции, "PDFinsertWatermark", мПараметры);
	
	КонецЦикла;

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


Функция ВыполнитьСкрипт(ЯзыкСкрипта, КодФункции, ИмяФункции, ПараметрыФункции = Неопределено)

 Script = Новый COMОбъект("MSScriptControl.ScriptControl.1");
 Script.Language = ЯзыкСкрипта;
 
 СтрокаПараметров = "";
 Если ПараметрыФункции <> Неопределено Тогда
  Для Индекс = 0 По ПараметрыФункции.Количество() - 1 Цикл
   СтрокаПараметров = СтрокаПараметров + ",ПараметрыФункции[" + Строка(Индекс) + "]";
  КонецЦикла;
 КонецЕсли; 
 СтрокаВызова = "ВозвращаемоеЗначение = Script.Run(""" + ИмяФункции + """" + СтрокаПараметров + ")";
 
 ВозвращаемоеЗначение = Неопределено;
 Попытка
  Script.AddCode(КодФункции);
  Выполнить(СтрокаВызова);
 Исключение
  ГдеОшибка = "{" + Script.Error.Line + ", " + Script.Error.Column + "}";
  КакаяОшибка = Script.Error.Source + ": " + Script.Error.Description;
  Если Не ПустаяСтрока(Script.Error.Text) Тогда
   КакаяОшибка = КакаяОшибка + " (" + Script.Error.Text + ")";
  КонецЕсли;
  ВызватьИсключение ГдеОшибка + " " + КакаяОшибка;
 КонецПопытки;
 
 Возврат ВозвращаемоеЗначение;

КонецФункции // ВыполнитьСкрипт() 

КодФункции =
	"Function ConvertPDF(filename)
	|   Dim AcroApp
	|	Dim AVDoc    
	|   Dim PDDoc
	|   Dim objJSO
	|   Dim boResult     
	|	Dim ExportFormat  
	|	Dim NewFilePath    
	|	Dim PDFPath
	|	Dim bNoSave
	|   Set AcroApp = CreateObject(""AcroExch.App"")
	|   Set AVDoc = CreateObject(""AcroExch.AVDoc"")
	|	Call AVDoc.Open(filename, """")
	|   Set AVDoc = AcroApp.GetActiveDoc
	|   Set PDDoc = AVDoc.GetPDDoc
	|   Set objJSO = PDDoc.GetJSObject
	|   nPages = PDDoc.GetNumPages
	|	ExportFormat = ""com.adobe.acrobat.jpeg""
	|	NewFilePath = ""D:\TestFiles\final.jpeg""
	|   boResult = objJSO.SaveAs(NewFilePath, ExportFormat)
	|	bNoSave = 1
	|	AVDoc.Close(bNoSave)
	|	AcroApp.Exit
	|   ConvertPDF= TypeName(PDDoc)
	|
	|End Function";