Sequenz an Drucker schicken

[Privateer3000]

So sieht meine procedure aus
Es wird allerdings immer nur das "P" gedruckt
Was ist falsch???

*kurzvormverzweifelnbin*
Übergabe: PrintCut('control','P',10);

Delphi-Quellcode:

procedure PrintCut(fontname,fontstring: String; fheight:Integer);
var Font: String; FontHeight:Integer; 
begin
  Font := fontname;
  FontHeight := fheight;
  Printer.PrinterIndex := Printer.Printers.IndexOf(report.form1.analysedrucker);
  Printer.BeginDoc;
 printer.Canvas.Font.Name:=font;
 printer.Canvas.Font.Size:=FontHeight;
 printer.Canvas.TextOut(0,0,fontstring);
 Printer.EndDoc;
end;

[Privateer3000]

Bei Epson habe ich eben dieses Basic-Beispiel gefunden:

PRINT #1, CHR$(&H1D);"V";CHR$(66);CHR$(0); 'Feeds paper & cut

Nur kann ich damit nichts anfangen.
chr(66) ist doch ein B.

Hätte jemand eine Idee?

[Hansa]

Ne, kein B. Das ist Hex, also 16x6+6. Davon der Ascii wert.

[Privateer3000]

es ist zum verzweifeln...
Hab jetzt ne Mail an Epson geschickt
kommt sowieso keine Antwort
aber Versuch macht kluch

[Hansa]

Schicke nicht unnötige Mails. Die werden dasselbe sagen wie ich. :mrgreen: Die Sequenz für Papierabschneider lautet (jetzt aber dezimal !!). 29 86 1 Ob das geht hängt aber auch davon ab, wie die Dip-Schalter eingestellt sind (Emulation) !! Die 29 ist KEIN Schreibfehler !!

[Privateer3000]

Das lustige daran ist,
wenn ich vom Report vorher ein Preview mache
und von dort drucke,schneidet der Drucker.
Da es ja schliesslich im Treiber so eingestellt
wurde. Nur direkt mit Print geht das nicht.

Wie soll ich deine Sequenz denn schicken?

[Hansa]

Die drei Zeichen müssen irgendwie direkt zum Drucker. Notfalls per Textfile.

[Privateer3000]

Ja, es gab ne Menge Usertipps
vertreut im Netz.
Es funktioniert sogar, wenn man ein
Label am Ende des Reports mit der
entsprechenden Formatierung setzt.

In meinem Fall hat Seiko-Epson weitergeholfen
mit einem aktualisierten Treiber. Erst dieser
sprach per Steuerzeichen den PartialCut korrekt
an.

Dank an alle!