Имя: Пароль:
1C
1С v8
Печать штампа в графическом файле, такое возможно в 1С?
0 wms
 
19.04.17
12:01
1С Документооборот.К документу прилагаются вложенные файлы формата pdf, и всякие графические разного формата.
Нужно при печати их из 1С в левом верхнем углу также печатать определенный текст-штамп( типа номер и дату документа).
Как понял редактировать эти графические файлы из 1С и встраивать в них этот штамп вообще не вариант, т.к. 1С это не умеет редактировать графические файлы.
А как то не встраивая в файл, можно распечатать файлы с этим штампом? может как то в колонтитул запихнуть
1 Fedor-1971
 
19.04.17
12:08
(0) BullZip PDF имеет функцию печати водяного знака или некого текста поверх основного, почитай про него.
Идея простая: выводим на PDF принтер с наложением информации, только наложение будет чётко привязано к конкретным параметрам (отступ, поворот и т.д.) и на каждой странице
2 wms
 
19.04.17
12:10
(1) только PDF? У нас сканы могуть быть разных форматов
Надо любые
3 Махони402
 
19.04.17
12:16
(2) Так на ПДФ принтер хоть ежа печать можно обычно. Сомневаюсь, что бычара уникален в этом плане
4 Fedor-1971
 
19.04.17
12:21
(2) Выводи всё что тебе нужно и получишь, типа стандарта "Документы с нашей регистрацией имеют формат PDF"

(3) Это да, но он бесплатный и имеет достаточно много фишек (правда они плавно перетекают в платную версию)
5 wms
 
20.04.17
09:28
Не совсем понял как выводить. Нашел только такой код.
Но, тут табличный документ выводится на печать. А у меня 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Файл.Существует() Цикл
         ОбработкаПрерыванияПользователя();
         ТаймерЗадержки;
      КонецЦикла;
   КонецЕсли;
КонецПроцедуры
6 SunStroke
 
20.04.17
10:03
Можно сделать, вызывая ImageMagiсk как внешнее приложение: https://www.imagemagick.org/script/composite.php (для обработки pdf дополнительно понадобится Ghostscript).