Simplex Druck mit Duplex Drucker

kwettstein

Hallo

Ich möchte gewisse PDF Dateien Duplex drucken, andere simplex. Dazu übergebe ich je nach Dokument den Parameter duplexMode.

Jetzt ist es so, dass zwar duplex gedruckt wird, aber leider immer, also auch wenn ich als duplexMode = dmSimplex angebe.

Ich benutze Delphi 2007, hier mein Code:

Code

procedure PrintAll(PrinterName: string=''; Copies: integer=1; duplexMode:TDuplexMode=dmSimplex);begin  // Drucker setzen  if PrinterName <> '' then  begin    CommandStr(COMPDF_SelectPrinter, Printername);  end;  // Anzahl Kopien setzen  CommandEx(COMPDF_SelectCopies, Copies);  // Simplex / Duplex drucken  case duplexMode of    dmSimplex :  CommandEx(COMPDF_SelectDuplexMode, 0);    dmDuplexH :  CommandEx(COMPDF_SelectDuplexMode, 1);    dmDuplexV :  CommandEx(COMPDF_SelectDuplexMode, 2);  end;  // Drucken starten  PrintPages(1, PageCount);end;

Solange ich meinen Standarddrucker auf Simplex eingestellt habe, und den case Fall

Code

dmSimplex :  CommandEx(COMPDF_SelectDuplexMode, 0);

weglasse, funktioniert alles. Sobald ich meinen Standarddrucker aber auf Duplex umstelle und / oder die Zeile wieder einfüge druckt es nur noch duplex.

Woran kann das liegen?

kwettstein

Ich habe das Problem mittlerweile lösen lönnen, jedoch habe ich nun ein neues...

Ich habe die PrintAll procedure mittlerweile umgeschrieben und zwar folgendermassen:

Code

procedure PrintAll(PrinterName: string=''; Copies: integer=1; duplexMode:TDuplexMode=dmSimplex);
var
  Device, Driver, Port : array [0..255] of Char;
  ResStr : array[0..255] of char;
  hDevMode : HGLOBAL;
  pDevMode : PDeviceMode;
begin




  // Standard Drucker hohlen
  GetProfileString('Windows','device','',ResStr,255);
  PrinterName := StrPas(ResStr);


  // Printer holen
  Printer.GetPrinter(PChar(PrinterName), Driver, Port, hDevmode);
  hDevMode := Command(COMPDF_PrintGetDEVMODE);
  pDevMode := GlobalLock(hDevMode);


  // WPView Printer übergeben
  CommandStr(COMPDF_SelectPrinter, Device);
  // WPView soll DevMode des Printers nicht setzen
  CommandEx(COMPDF_DONTSETDEVMODE,1);


  // DuplexMode setzen
  try
    case duplexMode of
      dmSimplex: pDevMode^.dmDuplex := DMDUP_SIMPLEX;
      dmDuplexH: pDevMode^.dmDuplex := DMDUP_HORIZONTAL;
      dmDuplexV: pDevMode^.dmDuplex := DMDUP_VERTICAL;
    end;
    pDevMode^.dmFields := pDevMode^.dmFields or DM_DUPLEX;


    // DuplexMode zuweisen an WPView Printer
    CommandStrEx(COMPDF_PrintSetDEVMODE, '', Cardinal(pDevMode));
    // Anzahl Kopien übergeben
    CommandEx(COMPDF_SelectCopies, Copies);
    // Drucken
    CommandStr(COMPDF_Print, '1-' + IntToStr(PageCount));
  finally
    // Printer freigeben
    GlobalUnlock(hDevMode);
  end;
end;

Alles anzeigen

Hiermit funktioniert zwar die Auswahl Simplex/Duplex, jedoch werden die PDF's in völlig willkürrlicher Reihenfolge gedruckt. Woran könnte das liegen? Die PrintAll funktion Rufe ich pro PDF und in der richtigen Reihenfolge auf.