| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
stales
Участник
Вступление в Клуб: 01.03.2018
|
 Пн Мар 12, 2018 12:42 Как вставить печать(jpeg) в шаблон отчета |
 |
Полезность: Нет оценки
|
| Коллеги, подскажите, пожалуйста , каким образом можно в отчет (excel) вставить печать компании(jpeg) в нужное место ? Конечный отчет формируется в формате pdf через сервер отчетов. Так как количество строк в отчете могут быть разные то необходимо двигать и печать... Заранее спасибо. |
|
 |
Guest_SPb
Участник со стажем
Вступление в Клуб: 27.02.2014
|
| Пн Мар 12, 2018 14:11 |
|
Полезность: 4
|
Я делал так:
В шаблоне отчёта был создан доп.лист "Образцы подписей" и на нём были сохранены сканы подписей нескольких сотрудников.
При формировании отчёта выполнялись команды: | Код: |
-- Позицианируемся на лист "Образцы подписей"
[EXCEL].cmd('xls.Sheets("Образцы подписей").Select');
-- Находится и выделяется объект (рисунок) "Picture N"
[EXCEL].cmd('xls.ActiveSheet.Shapes.Range(Array("Picture '||v_str||'")).Select');
-- Копируется выделенный объект (рисунок)
[EXCEL].cmd('xls.Selection.Copy');
-- Позицианируемся на лист "Касса"
[EXCEL].cmd('xls.Sheets("Касса").Select');
-- Позицианируемся на нужную ячейку на этом листе
[EXCEL].cmd('xls.Range("H'||to_char(33+i-1)||'").Select');
-- Вставляем на лист объект (рисунок)
[EXCEL].cmd('xls.ActiveSheet.Paste'); |
В самом конце формирования отчёта выполнялись команды: | Код: |
-- Удаление листа с образцами подписей
[EXCEL].Delete_Sheet('Образцы подписей');
-- По окончанию формирования отчёта позиционируемся на 1-й лист
[EXCEL].Open_Sheet(1); |
|
|
|
stales
Участник
Вступление в Клуб: 01.03.2018
|
| Вт Мар 13, 2018 15:30 |
|
Полезность: Нет оценки
|
| Спасибо! |
|
|
vchk
Участник
Вступление в Клуб: 19.10.2007
|
| Чт Июл 19, 2018 16:16 Re: Как вставить печать(jpeg) в шаблон отчета |
|
Полезность: Нет оценки
|
| stales пишет: | | Коллеги, подскажите, пожалуйста , каким образом можно в отчет (excel) вставить печать компании(jpeg) в нужное место ? Конечный отчет формируется в формате pdf через сервер отчетов. Так как количество строк в отчете могут быть разные то необходимо двигать и печать... Заранее спасибо. |
Поделитесь, если не секрет, технологией формирования отчета Excel в PDF через сервер отчетов, хотя бы в общих чертах. Как я понимаю, в дистрибутиве примеров нет... |
|
|
Alkov
Профи
Вступление в Клуб: 23.09.2010
|
| Пт Июл 20, 2018 10:44 |
|
Полезность: Нет оценки
|
-- Excel в PDF через сервер отчетов
а какая связь между Excel и Сервером отчётов ?
Или это не Oracle Report Server ? |
|
|
Volod
Эксперт
Вступление в Клуб: 19.09.2007
|
| Пт Июл 20, 2018 11:19 |
|
Полезность: 1
|
| [EXCEL].Save_PDF(); |
|
|
Alkov
Профи
Вступление в Клуб: 23.09.2010
|
| Пн Июл 23, 2018 11:29 |
|
Полезность: Нет оценки
|
| Volod пишет: | | [EXCEL].Save_PDF(); |
И где там Сервер ? |
|
|
Volod
Эксперт
Вступление в Клуб: 19.09.2007
|
| Пн Июл 23, 2018 12:02 |
|
Полезность: 1
|
Операция тип Отчет генератор VBS.
-- Создаём задание серверу отчетов
rep_id := ::[RUNTIME].[ORSALIB].Create_Report(&METHOD$CLASS,&METHOD$SNAME);
-- Задаём параметры сервера отчетов
if v_is_editable then
::[RUNTIME].[ORSALIB].Set_Context_Param(rep_id, 'RESULTEXTENSION', 'XLS');
else
::[RUNTIME].[ORSALIB].Set_Context_Param(rep_id, 'RESULTEXTENSION', 'PDF');
end if; |
|
|
vchk
Участник
Вступление в Клуб: 19.10.2007
|
| Вт Июл 24, 2018 18:06 |
|
Полезность: Нет оценки
|
| Volod пишет: | Операция тип Отчет генератор VBS.
-- Создаём задание серверу отчетов
rep_id := ::[RUNTIME].[ORSALIB].Create_Report(&METHOD$CLASS,&METHOD$SNAME);
-- Задаём параметры сервера отчетов
if v_is_editable then
::[RUNTIME].[ORSALIB].Set_Context_Param(rep_id, 'RESULTEXTENSION', 'XLS');
else
::[RUNTIME].[ORSALIB].Set_Context_Param(rep_id, 'RESULTEXTENSION', 'PDF');
end if; |
Вот это уже ближе, поразбираюсь, спасибо! |
|
|
|
О проекте
Поиск
Отзывы
Регистрация
Вход
