On Duplex printers use duplex

asreben

Hello,

I want to look if report has more than on page.
If it has more I want to change in Duplex (dmvertical) Mode.

I tried the following code, but dmvertical was not set.

with kommissionierreport do
    begin
      frxpage := TfrxReportPage(Pages[1]);
      frxpage.Duplex := dmnone;
      PrepareReport();
        if printersupportsduplex(PrintOptions.Printer) or ((printoptions.Printer = 'Default') and printersupportsduplex(printer.printers[Printer.PrinterIndex]))  then
        begin
          if engine.PreviewPages.Count > 1 then               
            begin
              frxpage.Duplex := dmvertical;                   
              PrepareReport();
            end;
        end;
      ShowPreparedReport;
    end;

The line "frxpage.Duplex := dmvertical" was processed (can see it with debugger) but the printer didn't print duplex.

Andreas