Сохранение страниц
Подскажите, как реализовать следующее:
Есть отчет, перед формированием которого в диалоговом окне пользователь вводит цифру, например 25. Затем запускает кнопкой отчет на выполнение. Всего отчет, к примеру, строит 100 страниц. Как сделать, чтобы после формирования первых 25 страниц (цифра пользователя) FastReport сохранял эти 25 страниц в файл С:\1.pdf, затем выполнение отчета продолжалось бы и следующие 25 страниц тоже сохранились бы в файл (2.pdf). В результате построения всего отчета получилось бы в этом случае 4 файла pdf в каждом по 25 страниц, в сумме в этих файлах весь отчет.
Подскажите с чего начать?
Спасибо.
Есть отчет, перед формированием которого в диалоговом окне пользователь вводит цифру, например 25. Затем запускает кнопкой отчет на выполнение. Всего отчет, к примеру, строит 100 страниц. Как сделать, чтобы после формирования первых 25 страниц (цифра пользователя) FastReport сохранял эти 25 страниц в файл С:\1.pdf, затем выполнение отчета продолжалось бы и следующие 25 страниц тоже сохранились бы в файл (2.pdf). В результате построения всего отчета получилось бы в этом случае 4 файла pdf в каждом по 25 страниц, в сумме в этих файлах весь отчет.
Подскажите с чего начать?
Спасибо.
Комментарии
Обьявите переменную в скрипте(кол-во страниц введеное пользователем) потом в delphi :
var
index:Integer;
PageCount:Integer;
begin
frxReport1.PrepareReport();
frxPDFExport1.ShowDialog := False;
PageCount := frxReport1.Script.Variables;
for index := 0 to (frxReport1.PreviewPages.Count + 1) div PageCount do
begin
frxPDFExport1.PageNumbers := IntToStr(PageCount * index + 1) + '-' + IntToStr(PageCount * (index + 1));
frxPDFExport1.DefaultPath := 'C:\';
frxPDFExport1.FileName := IntToStr(index+1)+'_Report.pdf';
frxReport1.Export(frxPDFExport1);
end;
frxReport1.ShowPreparedReport;
end;
Переведу этот код на С++ и попробую в своем проекте.