Добавление и изменение страниц через скрипт
Добрый день.
С фастрепортом только начинаю работать, многое не понятно.
Шаблон отчета состоит из 2 страниц, причем Page1 несколько, а Page2 всего одна. Необходимо вставить Page2 после каждой Page1.
Если использовать код Delphi
var i, j: integer;
p : TfrxReportPage;
begin
Report.PrepareReport;
j := Report.PreviewPages.Count - 1;
p := TfrxReportPage.Create(nil);
for i := 0 to j - 2 do
begin
p.AssignAll(Report.PreviewPages.Page[j+i]);
Report.PreviewPages.AddEmptyPage(i*2+1);
Report.PreviewPages.ModifyPage(i*2+1, p);
end;
p.Free;
Report.ShowPreparedReport;
end;
Всё прекрасно работает. Вопрос, возможно подобный код перенести в скрипт шаблона отчета?
Заранее спасибо.
С фастрепортом только начинаю работать, многое не понятно.
Шаблон отчета состоит из 2 страниц, причем Page1 несколько, а Page2 всего одна. Необходимо вставить Page2 после каждой Page1.
Если использовать код Delphi
var i, j: integer;
p : TfrxReportPage;
begin
Report.PrepareReport;
j := Report.PreviewPages.Count - 1;
p := TfrxReportPage.Create(nil);
for i := 0 to j - 2 do
begin
p.AssignAll(Report.PreviewPages.Page[j+i]);
Report.PreviewPages.AddEmptyPage(i*2+1);
Report.PreviewPages.ModifyPage(i*2+1, p);
end;
p.Free;
Report.ShowPreparedReport;
end;
Всё прекрасно работает. Вопрос, возможно подобный код перенести в скрипт шаблона отчета?
Заранее спасибо.
Комментарии
Дело в том, чтобы код Delphi не использовался совсем, всё должно быть в шаблоне.
У меня получается только добавить новую пустую страницу с помощью Engine.NewPage, а как её изменить, да ещё чтобы данные с Page2 брались, не знаю.
Engine.ShowBand вызвала на событие MasterDataOnBeforePrint, для всех кроме первой страницы, а для последней Page1 в конце печатается одна Page2, так что всё работает как надо.
Спасибо.