Vielleicht hat ja mal jemand ein ähnliches Problem,
so sieht die Lösung aus.
Die Hilfe von Fast-Report kommt wirklich sehr schnell.
Delphi-Quellcode:
frxReport.PrepareReport();
j := frxReport.PreviewPages.Count div 2;
page := TfrxReportPage.Create(nil);
for i := 0 to j - 2 do
begin
page.AssignAll(frxReport.PreviewPages.Page[j + i]);
frxReport.PreviewPages.AddEmptyPage(i * 2 + 1);
frxReport.PreviewPages.ModifyPage(i * 2 + 1, page);
frxReport.PreviewPages.DeletePage(j + i + 1);
end;
page.Free;
frxReport.ShowPreparedReport;