1С Документооборот.К документу прилагаются вложенные файлы формата pdf, и всякие графические разного формата.
Нужно при печати их из 1С в левом верхнем углу также печатать определенный текст-штамп( типа номер и дату документа).
Как понял редактировать эти графические файлы из 1С и встраивать в них этот штамп вообще не вариант, т.к. 1С это не умеет редактировать графические файлы.
А как то не встраивая в файл, можно распечатать файлы с этим штампом? может как то в колонтитул запихнуть
(0) BullZip PDF имеет функцию печати водяного знака или некого текста поверх основного, почитай про него.
Идея простая: выводим на PDF принтер с наложением информации, только наложение будет чётко привязано к конкретным параметрам (отступ, поворот и т.д.) и на каждой странице
Не совсем понял как выводить. Нашел только такой код.
Но, тут табличный документ выводится на печать. А у меня pdf или графический скан:
//упрощенная процедура для формирования ПДФ
Процедура ПолучитьФайлПДФ(Таб,ИмяФайла)
принтер=Новый ComObject("Bullzip.PDFPrinterSettings");
принтер.SetValue("output", ИмяФайла);
принтер.SetValue("ShowSaveAS", "never");
принтер.SetValue("ShowProgress", "no");
принтер.SetValue("ShowProgressFinished", "no");
принтер.SetValue("ShowSettings", "never");
принтер.SetValue("ShowPDF", "no");
принтер.SetValue("ConfirmOverwrite","no");
принтер.SetValue("OwnerPassword","Pass4PDF");
принтер.SetValue("Permissions",61636);
принтер.WriteSettings();
Таб.Автомасштаб=Истина;
Таб.Имяпринтера="Bullzip PDF Printer";
PDFФайл = Новый Файл(ИмяФайла);
Если НЕ PDFФайл.Существует() Тогда
Таб.Напечатать(Истина);
Пока НЕ PDFФайл.Существует() Цикл
ОбработкаПрерыванияПользователя();
ТаймерЗадержки;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший