новое событие
Информационный поток
Задания вакансии материалы разработки сообщения форума
Николаев Александр Игоревич
Приватное сообщение

БП3.0. Сохранить печатную форму в файл в формате jpeg.

09.11.1977(47 лет)
75 |  1
1 октября 2024 в 10:41:16 (5 недель 4 дня 19 часов назад)
56299
Текст задания
БП3.0
Есть код, который сохраняет внешнюю печатную форму в формате pdf.
Требуется либо сразу сохранять эту печатную форму в pdf.
Либо как-то преобразовать файл pdf, который сейчас сохраняется, в формат jpeg.
Желательно внутри 1С, без установки внешних программ.

Текущий код сохранения в pdf

ТабДок = Новый ТабличныйДокумент;
ТабДок =Печать(Счет.Ссылка);
ИмяФайла = ПолучитьИмяВременногоФайла("pdf");
ТабДок.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.PDF);

Функция Печать(Объект)
ИмяВременногоФайла = ПолучитьИмяВременногоФайла();
ХранилищеОбработки = Справочники.ДополнительныеОтчетыИОбработки.НайтиПоНаименованию("СчетЗаказНовыеРеквизиты").ХранилищеОбработки.Получить();
ХранилищеОбработки.Записать(ИмяВременногоФайла);
ВнешняяОбработка = ВнешниеОбработки.Создать(ИмяВременногоФайла);
Если ВнешняяОбработка = Неопределено Тогда
Возврат Ложь;
КонецЕсли;
РегистрационныеДанные = ВнешняяОбработка.СведенияОВнешнейОбработке();


МассивОбъектов = Новый Массив();
МассивОбъектов.Добавить(Объект);
КоллекцияПечатныхФорм = УправлениеПечатью.ПодготовитьКоллекциюПечатныхФорм("СчетЗаказ");
ПараметрыВывода = УправлениеПечатью.ПодготовитьСтруктуруПараметровВывода();
ОбъектыПечати = Новый СписокЗначений;

Попытка
ВнешняяОбработка.Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода);
Исключение
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
НСтр("ru = 'Ошибка печати: '") + КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
Возврат Ложь;
КонецПопытки;

Стр = КоллекцияПечатныхФорм[0];

Возврат Стр.ТабличныйДокумент;

КонецФункции
0
Отклики (4)