Druckertreiber läßt sich nicht ändern!

[Ruewue]

Hallo zusammen,

ich habe das Problem, dass ich meine Druckertreiber nicht auf andere Werte umstellen kann. Ich drucke aus Delphi mit List&Label ein Formular, welches doppelseitig bedruckt werden soll. Stelle ich nun den Druckertreiber direkt um, so ist alles klar, doch er druckt auch alles andere doppelseitig. Da ich im Hintergrund drucke, kann der User hier nicht eingreifen. Ich habe schon versucht die DUPLEX Einstellung direkt im L&L Formular zu machen, doch ignoriert dies der Drucker. Auch aus Delphi heraus kann ich den Drucker nicht dazu bewegen. Er läßt überhaupt keine Veränderung aus Delphi zu. Der Drucker selbst befindet sich im Netz, ist also nicht direkt angeschlossen. Die Abfrage auf DUPLEX oder nicht funktioniert hingen aus Delphi fehlerfrei.

Hier mein Abfragecode

Delphi-Quellcode:

function TfrmVorbereitung.PrinterSupportsDuplex:Boolean;
var 
  Device,Driver,Port   : array[0..255]of Char;
  hDevMode                  :THandle
  ;
begin 
  Printer.GetPrinter(Device, Driver, Port, hDevMode);
  Result:= WinSpool.DeviceCapabilities(Device, Port, DC_DUPLEX, nil, nil) <> 0;
end;

Mein Code für die Änderung

Delphi-Quellcode:

procedure TfrmVorbereitung.SetPrinterSettings;
var 
  Device,Driver,Port   : array[0..80]of Char;
  DevMode                     : THandle;
  pDevmode                  : PDeviceMode;
  
begin 
  //--- Get printer device mode handle -----------------------------------------------------------------------
  Printer.GetPrinter(Device, Driver, Port, DevMode);
  if DevMode <> 0 then begin 
    //--- lock it to get pointer to DEVMODE record -----------------------------------------------------------
    pDevMode   := GlobalLock(DevMode);
    if pDevMode <> nil then 
    try 
      with pDevmode^ do begin 
        dmDuplex         := DMDUP_VERTICAL;
        dmFields         := dmFields or DM_DUPLEX;
      end;
    finally 
      //--- unlock devmode handle ----------------------------------------------------------------------------
      GlobalUnlock(DevMode);
    end;
  end;{ If } 
end;

und der Aufruf im Program

Delphi-Quellcode:

  if PrinterSupportsDuplex then 
     SetPrinterSettings;

Hat einer vieleicht eine Lösung in der Schublade? Ich wäre für jeden Hinweis dankbar.