Добавить учебный штамп на первую страницу PDF

Учебные задачи

У собственного одностраничного PDF размещаем табличный штамп. Координаты и размеры заданы в миллиметрах, номера страниц начинаются с единицы.

Где и как запускать

Серверная процедура отдельной учебной базы; собственный PDF и потоки в памяти.

Подготовка

  1. Используйте отдельную учебную базу. Фрагмент без директив вставьте в тело серверной процедуры ВыполнитьПример() Экспорт общего модуля УчебныеЗадачи.

  2. Все исходные байты создаются самим примером в памяти. Файлы, сеть, справочники и документы не нужны.

  3. Запускайте задачи отдельно. После закрытия ЧтениеДанных/ЗаписьДанных не используйте этот экземпляр повторно.

  4. Документ PDF строится из собственной ячейки Книга: 3 шт. Внешний PDF, установленный PDF-редактор, криптографический сертификат и реальные персональные данные не нужны.

  5. Файловый путь нигде не используется. Для просмотра в PDF-программе сохраните только полученные собственные двоичные данные в отдельно выбранный новый учебный файл.

Чтение = Неопределено;
Запись = Неопределено;
ПотокЧтения = Неопределено;
ПотокPDF = Новый ПотокВПамяти;
Документ = Новый ТабличныйДокумент;
Документ.Область("A1").Текст = "Книга: 3 шт.";
Документ.Область("A1").ЦветТекста = Новый Цвет(30, 90, 180);
Попытка
    Документ.Записать(ПотокPDF, ТипФайлаТабличногоДокумента.PDF);
    Штамп = Новый ТабличныйДокумент;
    Штамп.Область("A1").Текст = "УЧЕБНЫЙ ОБРАЗЕЦ";
    ОписаниеШтампа = Новый ОписаниеОтображаемогоОбъектаPDF;
    ОписаниеШтампа.Объект = Штамп;
    ОписаниеШтампа.Имя = "УчебныйШтамп";
    ОписаниеШтампа.НомерСтраницы = 1;
    ОписаниеШтампа.Лево = 20;
    ОписаниеШтампа.Верх = 30;
    ОписаниеШтампа.Ширина = 60;
    ОписаниеШтампа.Высота = 12;
    Сообщить(ОписаниеШтампа.Объект = Штамп);
    Сообщить(ОписаниеШтампа.Имя = "УчебныйШтамп");
    Сообщить(ОписаниеШтампа.НомерСтраницы = 1);
    Сообщить(ОписаниеШтампа.Лево = 20 И ОписаниеШтампа.Верх = 30);
    Сообщить(ОписаниеШтампа.Ширина = 60 И ОписаниеШтампа.Высота = 12);
    ПотокPDF.Перейти(0, ПозицияВПотоке.Начало);
    Запись = Новый ЗаписьPDF(ПотокPDF);
    Запись.ЗаписатьОтображаемыйОбъект(ОписаниеШтампа);
    Запись.Закрыть();
    Запись = Неопределено;
    БайтыPDF = ПотокPDF.ЗакрытьИПолучитьДвоичныеДанные();
    ПотокPDF = Неопределено;
    ПотокЧтения = БайтыPDF.ОткрытьПотокДляЧтения();
    Чтение = Новый ЧтениеPDF(ПотокЧтения);
    Сообщить(БайтыPDF.Размер() > 0);
    Сообщить(Чтение.ПолучитьВложения().Количество() = 0);
Исключение
    Если Чтение <> Неопределено Тогда
        Чтение.Закрыть();
    КонецЕсли;
    Если Запись <> Неопределено Тогда
        Запись.Закрыть();
    КонецЕсли;
    Если ПотокЧтения <> Неопределено Тогда
        ПотокЧтения.Закрыть();
    КонецЕсли;
    Если ПотокPDF <> Неопределено Тогда
        ПотокPDF.Закрыть();
    КонецЕсли;
    ВызватьИсключение;
КонецПопытки;
Если Чтение <> Неопределено Тогда
    Чтение.Закрыть();
КонецЕсли;
Если Запись <> Неопределено Тогда
    Запись.Закрыть();
КонецЕсли;
Если ПотокЧтения <> Неопределено Тогда
    ПотокЧтения.Закрыть();
КонецЕсли;
Если ПотокPDF <> Неопределено Тогда
    ПотокPDF.Закрыть();
КонецЕсли;

Разбор по шагам

  1. ОписаниеОтображаемогоОбъектаPDF содержит объект штампа и его размещение, но не рисует его до вызова записи.

  2. НомерСтраницы=1 означает первую страницу. Начало координат — левый верхний угол, Лево/Верх/Ширина/Высота в миллиметрах.

  3. ЗаписатьОтображаемыйОбъект получает всё описание. Имя объекта отличает его от имени файла или вложения.

  4. Повторное чтение подтверждает пригодность итоговых байтов к открытию; внешний вид проверяется отдельно в PDF-программе.

Как проверить результат

  1. Семь сравнений Истина при успешном изменении; вложений нет, штамп не является вложением.

  2. Для визуальной проверки сохраните собственные БайтыPDF в новый учебный файл и проверьте штамп на первой странице, примерно 20 мм справа и 30 мм вниз. Этот показ автоматически не выполняется.

Ожидаемый результат

В собственный PDF записано отображение учебного табличного штампа.

На что обратить внимание

  1. Несуществующая страница вызывает исключение; не начинайте нумерацию с 0.

  2. Такой штамп не является электронной подписью и не удостоверяет юридическую подлинность документа.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.

Не хотите разбираться сами?

Адаптируем это решение под вашу базу. Оценка бесплатно.

Оставить задачу

1С, 1С:Предприятие — товарные знаки ООО «1С». Сайт не является официальным представительством фирмы «1С» и не аффилирован с ней.