Both sides printing

John Pendule

If I have a document with 3 pages and I print two copies on both sides, the front page of my second copy is in the back of the second page.
Have you idea?
Thank you.

gpi

Add empty TfrxReportPage (Page2) in report and use in script:

procedure Page1OnAfterPrint(Sender: TfrxComponent);
begin
    Page2.Visible := (<Page> mod 2) = 1;  
end;

John Pendule

gpi wrote: »

Add empty TfrxReportPage (Page2) in report and use in script:

procedure Page1OnAfterPrint(Sender: TfrxComponent);
begin
    Page2.Visible := (<Page> mod 2) = 1;  
end;

Yes but I can't know if the user prints on the both sides...

gpi

Did you try to print a document with 3 pages from MS Word? What result did you get? What version of FR do you use?

John Pendule

gpi wrote: »

Did you try to print a document with 3 pages from MS Word? What result did you get? What version of FR do you use?

There's no problem from MS Word. I use FR 4.10.1.

John Pendule

An idea ?

John Pendule

It's very important for my customers to have a solution for this problem.
Have you a solution ?

gpi

Try

procedure TForm1.frxReport1PrintReport(Sender: TObject);
var i, Copies: integer;
    ShowDialog: Boolean;
begin
     if frxReport1.PrintOptions.Copies > 1 then
       begin
         Copies := frxReport1.PrintOptions.Copies - 1;
         frxReport1.PrintOptions.Copies := 1;
         ShowDialog := frxReport1.PrintOptions.ShowDialog;
         frxReport1.PrintOptions.ShowDialog := False;
         for i := 1 to Copies do
           frxReport1.Print;
         frxReport1.PrintOptions.ShowDialog := ShowDialog;
       end;
end;