Duplexdruck bei KONICA MINOLTA Treibern

[sh17]

Bei Druckern, die sich weigern das aktivierte Duplex zu verwenden, könnte evtl die Ausgabe der Escape-Sequenz helfen

Einfach nach BeginDoc ausgeben

Delphi-Quellcode:

type
  TPassThroughData = record
      nLen: Word;
      Data: array[0..255] of Byte;
  end;

CONST
  DUPLEX_ON = '&l1S';   //Job Page Duplex Long-Edge Binding
  DUPLEX_OFF = '&l0S';
  ESC = #27;

procedure PrintText(s: string);
var
  PTBlock: TPassThroughData;
begin
  PTBlock.nLen := Length(s);
  StrPCopy(@PTBlock.Data, s);
  Escape(Printer.Handle, PASSTHROUGH, 0, @PTBlock, nil);
end;

      if (not FDuplex) then
        PrintText(ESC+DUPLEX_OFF)
      else
        PrintText(ESC+DUPLEX_ON);

[Delphi.Narium]

Ohne irgendeine Garantie auf sinnvolle Nutzbarkeit:

http://www.swissdelphicenter.com/de/...de.php?id=1961

http://www.delphipraxis.net/188051-d...instellen.html

http://www.massmind.org/Techref/lang...ELPHI0091.html

http://www.tek-tips.com/viewthread.cfm?qid=1510419

http://www.delphipages.com/forum/sho...d.php?t=162930

[WiPhi]

Vielen Dank für die zahlreichen Beiträge.

Ich habe zu dem Thema neue Erkentnisse: Auf die Druckereinstellungen kann ich nichts geben, da diese immer überschrieben werden. Der Drucker sammelt alle Druckjobs und druckt diese über einen eigenen Controller. Heißt egal, was ich auslese und setze, er macht das alles ganz anders. Das Problem ist nun nicht mehr wie ich die Einstellungen auslese, sondern wie ich meinen Duplex-Druck anpasse, so das die gewünschte Trennung stattfindet.

Hierfür habe ich mich jetzt an meinen Reporting Hersteller List & Label gewandt. Sobald der Foren-Eintrag bereit steht, werde ich ihn hier verlinken.

Meine Lösung wird aber wahrscheinlich so aussehen, dass ich eine Option in das Programm einbaue, wobei an die einzelnen Druckjobs ggf. eine Leerseite angehangen wird. Da sich der Kunde das Verhalten auch für PDFs wünscht (...), lohnt sich das.