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);