Epson TM-T88 Römisch 3 NUR Kassenschublade öffnen

[egon.kaschuba]

Hallo,
hilferuf an alle.

Ich möchte NUR die Kassenschublade öffnen.

Der Drucker ist ein Laser Epson TM-T88

Das habe ich gemacht ....
Mit (0,0,'P') bewegt sich nur der Drucker
Mit (0,0,'A') Öffnet Schublade und Druckt.

Wer kann mir dabei helfen ??

Gruß
- Egon

Delphi-Quellcode:

with Printer do begin   // Druckt (Image) auf Bon
            Begindoc;

      Printer.Canvas.Font.Name:='control';  // Steuercode für Bondrucker und Schublade
      Printer.Canvas.Font.Size:=10;
      Printer.Canvas.TextOut(0,0,'A');
      EndDoc;   
           end;

[omata]

Vielleicht hilft das hier weiter.

[Hansa]

Geht mit dieser ESC-Sequenz :

(chr (27) + 'p' + chr (0) + chr (50) + chr (50));

[egon.kaschuba]

Leider noch nicht , ich weiß nicht
wo der Fehler liegt.
Wenn das so aussehen soll,bekomme ich die Meldung
Inkompatible Typen Interger u. String.

 Printer.Canvas.TextOut (chr (27) + 'p' + chr (0) + chr (50) + chr (50);

[omata]

Printer.Canvas.TextOut(0, 0, #27 + 'p' + #0 + #50 + #50);

[egon.kaschuba]

Hallo Omata u. alle.

Ne, geht nicht,mit dem Code wird nur Gedruckt.
Aber ich möchte nUR dir Schublade öffnen.

Printer.Canvas.TextOut(0, 0, #27 + 'p' + #0 + #50 + #50);

[omata]

Neuer Versuch...

Delphi-Quellcode:

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

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

procedure TForm.ButtonClick(Sender: TObject);
begin
  Printer.BeginDoc;
  DirectPrint(#27 + 'p' + #0 + #50 + #50);
  Printer.EndDoc;
end;

[Garfield]

Zitat von Hansa:

Geht mit dieser ESC-Sequenz :

(chr (27) + 'p' + chr (0) + chr (50) + chr (50));

In Omatas Link steht:

Zitat:

Geldlade öffnen:
ESC p m t1 t2
z. B. CHR(&H1B) + "p" + CHR(&H0) + CHR(&H64) + CHR(&H64)

Das wäre dann doch:
(chr (27) + 'p' + chr (0) + chr (100) + chr (100));

[Hansa]

Jo, Schlaumeier. Ich habe den Link gar nicht durchgelesen, sondern die Prozedur schneller in funktionierendem Programm gesucht, als das alles zu lesen. 8) Im nachhinein würde ich sagen : Link auf Klartext-Silbertablett und selbst den kriegt er offenbar nicht so einfach hin. Vielleicht liegts ja an der Hex. Obwohl, Omata hat doch sogar ganze ferige Prozedur geschickt.

Die Schublade braucht auch wohl kaum Druck-Koordinaten, das Textout aber schon. Schicke meine Sequenz GENAU SO direkt an den Drucker (siehe Omata). Oder zumindest vorerst mit write (LST,....); Diese Drucker sind auch nur bedingt grafikfähig. Deshalb besser gleich Finger weg von Canvas etc.