var
  i: Integer;
  c: TfrxComponent;
  IsEven: Boolean;
begin
  frxReport.PrepareReport();
  IsEven := False;
  i := 0;
  while (i < frxReport.PreviewPages.Count) do
    if IsEven then
    begin
      frxReport.PreviewPages.Page[i - 1].PaperSize := DMPAPER_A3;
      while (frxReport.PreviewPages.Page[i].Objects.Count > 0) do
      begin
        c := TfrxComponent(frxReport.PreviewPages.Page[i].Objects[0]);
        c.Left := frxReport.PreviewPages.Page[i - 1].PaperWidth * fr01cm / 2;
        c.Parent := frxReport.PreviewPages.Page[i - 1];
      end;
      frxReport.PreviewPages.ModifyPage(i - 1, frxReport.PreviewPages.Page[i - 1]);
      frxReport.PreviewPages.ModifyPage(i, frxReport.PreviewPages.Page[i]);
      frxReport.PreviewPages.DeletePage(i);
      IsEven := False;
    end
    else
    begin
      IsEven := True;
      Inc(i);
    end;
  frxReport.ShowPreparedReport;
end;