Sequenz an Drucker schicken

**RedCurlyTammy**

hallo!

bitte um hilfe. ich habe einen Epson-Bondrucker und eine Kassenlade dazu. Mit einer bestimmten Sequenz kann ich die Kassenlade nach dem Drucken eines Dokumentes auf den Bondrucker öffnen. Ich arbeite mit der Unit Printers, habe aber leider nicht herausgefunden, wo ich eine solche Sequenz zuweisen kann. Hat jemand vielleicht ein Idee?

Danke

**MrSpock**

Hallo RedCurlyTammy,

ich habe einmal einen Etikettendrucker programmieren müssen. Dazu habe ich die Daten und Steuerzeichen in eine Datei geschrieben und diese mit Copy an den Drucker "prn:" geschickt.

**RedCurlyTammy**

Hallo MrSpock!

hast keine Idee wie ich das mit printers lösen kann? ich hab nämlich schon ein schönes druckprogramm und hab gedacht, daß ich das da einfach einbauen kann.

Hallo und herzlich Willkommen im Forum!

Ich habe den Thread nach Sonstiges verschoben.
Die Sparte "Neuen Beitrag zur Code-Library hinzufügen" ist nur für Beiträge die in der Library aufgenommen werden sollen.

Grüsse, Daniel

**Willi1960**

Hallo,

ich habe das gleiche Problem. Bin aber schon ein ganzes Stück weiter. Der Drucker muß mit einer Escape Sequenz dazu gebracht werden, die Lade zu öffnen.

zB. #27, #110, #0, #50 #50

Das ist die Ansteuerung für die meisten Bondrucker um die Lade zu öffnen. Jedoch muß der Drucker direkt angesteuert werden. Das weiß ich allerdings auch nicht wie das geht. Vielleicht kann uns da einer weiterhelfen.

**shmia**

Code-Library:

Daten über den Spooler an Drucker senden

**marabu**

Hallo,

hier noch eine minimalistische Alternative:

zusammenfalten · markieren

Delphi-Quellcode:

			function PrintEsc(const data: string): Boolean;

var

  pd: PChar;

begin

  Printer.BeginDoc;

  pd := PChar(Data);

  Dec(PInteger(pd));

  if Length(data) = PInteger(pd)^

    then Result := Windows.Escape(Printer.Handle, PASSTHROUGH, 0, pd, nil) <> 0

    else Result := False;

  Printer.EndDoc;

end;

Grüße vom marabu

**ol1uw**

Bei Epson Bon Druckern gibt es einen spez. Font für die Übermittlung dieser Befehle

markieren

Delphi-Quellcode:

			printer.Canvas.Font.Name:='control';

printer.Canvas.Font.Size:=10;

// Bon abschneiden

printer.Canvas.TextOut(0,0,'P');

// Kassenlade öffnen

printer.Canvas.TextOut(0,0,'A');

Uwe

**Willi1960**

Hallo,

Absolut perfekt mit den Fonts. So Funktioniert es !!!

**Privateer3000**

Hallo,

ich habe nach diesem Tipp versucht
so ein Cut an einen Epson zu schicken.

Mit dem Ergebnis,dass dieser ein "P" ausdruckt.
Hinzu kommt dass ich den Ausdruck vorher an einen
Quickreport schicke.
Kann man dies an das "Afterprint"Ereignis des
Reports schicken?

Grüße