Both sides printing

Comments

• gpi

  October 2010 edited 12:05AM

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

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

  October 2010 edited 12:05AM

  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

  October 2010 edited 12:05AM

  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

  November 2010 edited 12:05AM

  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

  November 2010 edited 12:05AM

  An idea ?
• John Pendule

  December 2010 edited 12:05AM

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

  December 2010 edited 12:05AM

  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;