Печать книги формата А5 на листах А4

urkposhta

Есть n страниц формата А5. Нужно их напечатать как книгу на листах А4.
Реально это сделать силами фастрепорта?
(силами драйвера принтера не предлагать т.к. все что известно о принтере - он поддерживает двустороннюю печать).

gpi

Вы можете пересортировать страницы превью после формирования отчёта (алгоритм для брошюры будет другой):

var i, j: integer;
    page : TfrxReportPage;
begin
     frxReport1.PrepareReport();
     j := frxReport1.PreviewPages.Count div 2;
     page := TfrxReportPage.Create(nil);
     for i := 0 to j - 2 do
       begin
         page.AssignAll(frxReport1.PreviewPages.Page[j + i]);
         frxReport1.PreviewPages.AddEmptyPage(i * 2 + 1);
         frxReport1.PreviewPages.ModifyPage(i * 2 + 1, page);
         frxReport1.PreviewPages.DeletePage(j + i + 1);
       end;
     page.Free;  
     frxReport1.ShowPreparedReport;
end;

urkposhta

Большое спасибо!
Так и сделал.
только переписал алгоритм "перемешивания".
Может кому пригодится -
для печати А5 книжкой на А4 получилось так:

     frxReport1.PrepareReport(True);

     while (frxReport1.PreviewPages.Count mod 4) > 0 do
     begin
        frxReport1.PreviewPages.AddPage(nil);
     end;

     j := frxReport1.PreviewPages.Count div 4; //количество листов А4
     page := TfrxReportPage.Create(nil);

     for i := 0 to j-1 do // цикл по листах а4
       for k := 1 to 2 do //цикл по разворотах
       begin
         if k = 1 then //для первой стороны
         begin
         page.AssignAll(frxReport1.PreviewPages.Page[j*4-1]);
         frxReport1.PreviewPages.AddEmptyPage(i*4);
         frxReport1.PreviewPages.ModifyPage(i*4, page);
         frxReport1.PreviewPages.DeletePage(j*4);
         end
         else  //для второй...
         begin
         page.AssignAll(frxReport1.PreviewPages.Page[j*4-1]);
         frxReport1.PreviewPages.AddEmptyPage(i*4+3);
         frxReport1.PreviewPages.ModifyPage  (i*4+3, page);
         frxReport1.PreviewPages.DeletePage(j*4);
         end;
       end;
     page.Free;
     frxReport1.ShowPreparedReport;

к примеру для 8 страниц получается: <[8,1],[2,7]>,<[6,3],[4,5]>
Только нужно не забывать ставить pmJoin для объединения листов.

но все же было бы удобнее, если бы это встроили как метод самого репорта...