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

[egon.kaschuba]

Hallo,
hilferuf an alle.

Ich möchte NUR die Kassenschublade öffnen.
:wall:
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 :

Delphi-Quellcode:

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

[egon.kaschuba]

:wall:

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

Delphi-Quellcode:

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

[omata]

Delphi-Quellcode:

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.

Delphi-Quellcode:

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;

[DP-Maintenance]

Dieses Thema wurde von "fkerber" von "Open-Source" nach "Sonstige Fragen zu Delphi" verschoben.
Dieser Bereich dient zur Vorstellung eigener OpenSource-Programme.
Da es sich hier um eine Frage handelt, verschiebe ich mal...

[Garfield]

Zitat:

Zitat von Hansa

Geht mit dieser ESC-Sequenz :

Delphi-Quellcode:

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

:gruebel: 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:

Delphi-Quellcode:

(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. :mrgreen: Obwohl, Omata hat doch sogar ganze ferige Prozedur geschickt. :shock:

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

Delphi-Quellcode:

write (LST,....);

Diese Drucker sind auch nur bedingt grafikfähig. Deshalb besser gleich Finger weg von Canvas etc.