Big problem with duplex printing

enricorav

Hi to all,

i have a problem when i try to print a document with a Printer that support Duplex printing. It seem WpTools don't use the Duplex print settings of my printer and alwais print only one page per sheet.

I have see some previous message in this news group about problem with duplex printing but the only solution seem to be setting WpTools property PrintParameter.PrintDuplex = wpdHorizontal or wpdVertical in my code. But with this solution my customer can't control duplex print with standard printer control panel.
Can i do something else? For my point of view this is not an acceptable solution for a WordProcessor library where the first mission is treating document and printing it.

Please tell me something, this is a big problem for my customer and if i can't solve it with WpTools i must leave it ...

Best regards,
Enrico Raviglione.

support

Hi,

I think I must get a duplex printer... - I assume the problem is the code which changes the settings of the duplex printer as a sideffect of changing the general setup.
This code is executed depending on the setting for
PrintParameter.printduplex.

Please dispable the

Code

if (DevMode^.dmFields and DM_DUPLEX) <> 0 then
        begin
          if fprintduplex then
          begin
            Devmode^.dmDuplex := dmdup_vertical;
            DevMode^.dmFields := DevMode^.dmFields or DM_DUPLEX;
            FDidSetDuplex := TRUE;
            FPrintingDuplex := TRUE;
          end
          else if FDidSetDuplex then
          begin
            Devmode^.dmDuplex := dmdup_simplex;
            DevMode^.dmFields := DevMode^.dmFields or DM_DUPLEX;
            FDidSetDuplex := FALSE;
          end;
        end;

Alles anzeigen

in function TWPPrinterEngine.UpdatePrinterProperties, unit WPPrint.PAS to select the mode which was set in the printer dialog.

Julian

enricorav

Hi,
i find your function in WpPrint.pas module (WpTools 4.11) and i see this:

Code

FPrintingDuplex := FALSE;
    if (DevMode^.dmFields and DM_DUPLEX) <> 0 then
    begin
      {was: if fprintduplex then
       begin
         Devmode^.dmDuplex := dmdup_vertical;
         DevMode^.dmFields := DevMode^.dmFields or DM_DUPLEX;
         FDidSetDuplex := TRUE;
         FPrintingDuplex := TRUE;
       end
       else if FDidSetDuplex then
       begin
         Devmode^.dmDuplex := dmdup_simplex;
         DevMode^.dmFields := DevMode^.dmFields or DM_DUPLEX;
         FDidSetDuplex := FALSE;
       end; }


      case fprintduplex of
        wpdNone:
          begin
            Devmode^.dmDuplex := dmdup_simplex;
            DevMode^.dmFields := DevMode^.dmFields or
              DM_DUPLEX;
            FDidSetDuplex := FALSE;
          end;
        wpdHorizontal:
          begin
            Devmode^.dmDuplex := DMDUP_HORIZONTAL;
            DevMode^.dmFields := DevMode^.dmFields or
              DM_DUPLEX;
            FDidSetDuplex := TRUE;
            FPrintingDuplex := TRUE;
          end;
        wpdVertical:
          begin
            Devmode^.dmDuplex := dmdup_vertical;
            DevMode^.dmFields := DevMode^.dmFields or
              DM_DUPLEX;
            FDidSetDuplex := TRUE;
            FPrintingDuplex := TRUE;
          end;
      end;
    end;

Alles anzeigen

then, how i must change your code ?

support

// if (DevMode^.dmFields and DM_DUPLEX) <> 0 then
if false then // disabled