Как установить параметры экспорта из отчета?

seGromozeka

Следующая задача:
есть отчет, при выборе пользователем варианта отправки по электронной почте в отчет автоматически добавляется некоторые данные
типа печати и подписей (чтобы не распечатывать и потом не сканировать), после этого отчет экспортируется в GIF и складывается в определенный
каталог для последующей обработки и отправки.

Вопросы:

1. Можно ли устанавливать параметры экспорта из скрипта отчета?
2. Можно ли из отчета инициировать определенный экспорт

Кроме переписывания параметров через функции пользователя ничего в голову не лезет, как еще решить эту проблему?

-=Den=-

seGromozeka написал: »

Следующая задача:
есть отчет, при выборе пользователем варианта отправки по электронной почте в отчет автоматически добавляется некоторые данные
типа печати и подписей (чтобы не распечатывать и потом не сканировать), после этого отчет экспортируется в GIF и складывается в определенный
каталог для последующей обработки и отправки.

Вопросы:

1. Можно ли устанавливать параметры экспорта из скрипта отчета?
2. Можно ли из отчета инициировать определенный экспорт

Кроме переписывания параметров через функции пользователя ничего в голову не лезет, как еще решить эту проблему?

1-2. Теоретически возможно, если добавить в скрипт классы и объекты фильтров экспорта, созданные в приложении.

seGromozeka

написал: »

1-2. Теоретически возможно, если добавить в скрипт классы и объекты фильтров экспорта, созданные в приложении.

А можно немного подробнее?
А кусочек кода был бы вообще супер...

-=Den=-

seGromozeka написал: »

А можно немного подробнее?
А кусочек кода был бы вообще супер...

frxReport1.Script.AddClass(TfrxCustomExportFilter, 'TComponent');
frxReport1.Script.AddClass(TfrxCustomImageExport, 'TfrxCustomExportFilter');
frxReport1.Script.AddClass(TfrxBMPExport, 'TfrxCustomImageExport');
frxReport1.Script.AddClass(TfrxRTFExport, 'TfrxCustomExportFilter');
...

frxReport1.Script.AddObject('frxRTFExport1',frxRTFExport1);
frxReport1.Script.AddObject('frxBMPExport1',frxBMPExport1);
...

В скрипте:

frxRTFExport1.FileName := 'myFilename.rtf';

итд.

seGromozeka

написал: »

frxReport1.Script.AddClass(TfrxCustomExportFilter, 'TComponent');
frxReport1.Script.AddClass(TfrxCustomImageExport, 'TfrxCustomExportFilter');
frxReport1.Script.AddClass(TfrxBMPExport, 'TfrxCustomImageExport');
frxReport1.Script.AddClass(TfrxRTFExport, 'TfrxCustomExportFilter');
...

frxReport1.Script.AddObject('frxRTFExport1',frxRTFExport1);
frxReport1.Script.AddObject('frxBMPExport1',frxBMPExport1);
...

В скрипте:

frxRTFExport1.FileName := 'myFilename.rtf';

итд.

Спасибо - огромное, самому бы квалификации не хватило. Проблему решил.

seGromozeka

Попутный вопрос:
- параметры экспорта в отчете установили
- в событии OnStopReport у Report в скрипте отчета вызвали собственную процедуру ExportGif,
которая эмулирует вызов frxReport.Export(frxGIFExport) (по другому не смог)
- экспорт проходит отлично

НО!!! превью после такого "ломается", видна только серая подложка, даже контура страницы нет, т.е. не видно
что именно мы экспортировали. Как избавится от ошибки ?

gpi

Попробуйте

frxReport.Preview.Lock;
frxReport.Export(frxGIFExport);
frxReport.Preview.UnLock;

TfrxCustomPreview, вероятно, тоже придётся добавить в скрипт