QR-код на печать из 1C в excel

Форум Программирование Интеграция и обмен данными, конвертация данных (Обмен)

1. olo_lo4 05.08.17 22:46 Сейчас в теме

Доброго времени суток.
Задача такая:
1. Присоединенные файлы (Excel) распечатать
2. При печати должен на каждой странице быть QR-код ЭЦП.

С первый проблем не возникло, а вот со вторым, даже не знаю с какой стороны подойти.

Вопрос:
Возможно ли то, что описано в пункту 2.?

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

4. olo_lo4 05.08.17 23:09 Сейчас в теме

Для печати QR-кода на каждой странице прикрепленного файла извратился с колонтитулами. При прикреплении файла добавляю колонтитул как строку с пояснением так и сам код. С вордом проблем нет всё выводи, а вот с екселем проблема - картинку не хочет добавлять.

делаю так:

Процедура ДобавитьКолонтитулВФайлXLS(АдресВоВременномХранилище,ПараметрФайла,АдресКартинки)

    ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВоВременномХранилище);
    
    ИмяФайла = КаталогВременныхФайлов() + "tempDoc." + ПараметрФайла.РасширениеБезТочки;
    ИмяФайла1 = КаталогВременныхФайлов() + "tempDoc1." + ПараметрФайла.РасширениеБезТочки;
    
    ДвоичныеДанные.Записать(ИмяФайла);
    Попытка
        
        Excel = Новый COMОбъект("Excel.Application");
    Исключение
        Сообщить(ОписаниеОшибки());
        возврат;
    КонецПопытки;
    
    Excel.DisplayAlerts = 0; 
    Книга = Excel.Workbooks.Open(ИмяФайла,,1);
    ExcelЛист = Книга.Worksheets(1);
    ExcelЛист.PageSetup.Orientation = 1;
    
    ExcelЛист.PageSetup.CenterFooter = "Документ подписан электронно-цифровой подписью: " + СокрЛП(ПараметрФайла.КомуВыданСертификат + " - " + ПараметрФайла.Отпечаток);
    Если не ПустаяСтрока(АдресКартинки) Тогда
        ExcelЛист.PageSetup.CenterFooterPicture.Filename = АдресКартинки;
    КонецЕсли;
    Книга.SaveAs(ИмяФайла1); 
    Книга.Close(0);
    
    ДвоичныеДанные = Новый ДвоичныеДанные(ИмяФайла1);
    
    ПоместитьВоВременноеХранилище(ДвоичныеДанные,АдресВоВременномХранилище);
    
КонецПроцедуры

Показать

Есть у кого мысли по этому поводу.

2. olo_lo4 05.08.17 22:46 Сейчас в теме

Таким образом
Есть печатная форма документа, там этот код печатается.
Есть прикрепленные файлы и при их печати нужно добавлять QR-код.

3. olo_lo4 05.08.17 22:47 Сейчас в теме

сам сгенерированный QR-код есть, проблема в том, чтоб передать при печати файла, ладно бы в файл добавил в конец эту картинку и распечатал, но ещё надо чтоб на каждой странице.Возможно ли из файла всё что есть запихнуть в ТабличныйДокумент?

5. olo_lo4 05.08.17 23:10 Сейчас в теме

ExcelЛист.PageSetup.CenterFooter.Filename = АдресКартинки;
ExcelЛист.PageSetup.CenterFooter = "&G";

отладчик доходит только до ExcelЛист.PageSetup.CenterFooter.Filename = АдресКартинки; и отваливается

6. olo_lo4 05.08.17 23:10 Сейчас в теме

при этом чт странно с вордом вообще всё ОК и картинку и текст выводит и текст по страницам переносит как надо, а эксэль как будто не мелкософт делал

Оставьте свое сообщение

E-mail: