Kassenlade öffnen

[arnof]

Hi,

schau mal im Forum genau nach, dies war erst dieses Jahr hier ein Thema und dort ist auch ein komplettes Beispiel vorhanden!

[Natcree]

habe ich schon also die lade wird geöffnet aber er druckt den Steuerbefehl mit aus

[arnof]

Zitat von Natcree:

habe ich schon also die lade wird geöffnet aber er druckt den Steuerbefehl mit aus

Echt ? ich habe das schon auf vielen verschiedenen Geräten getestet, ich hatte nur einen Kunden bei dem das nicht ging, das war ein älterer EPSON TM88III oder 88IV Drucker.

Sonst keinerlei Probleme!

[Natcree]

ja aber ist doof weil er E p 1t 2t als string mit ausdruckt was kann ich dagegen machen. brauchst du vielleicht den code schnippsel?

[implementation]

Das Escape-Zeichen bekommst du mit #27, und dann hängst du das p hinterher:
#27'p' Sollte den gewünschten Effekt von dem haben, was im Handbuch deiner Kassenlade als "ESC p" beschrieben wird.

[Natcree]

Danke werde es morgen gleich versuchen

[noisy_master]

Hi,

nachdem ich dann auch schon viele hilfreiche Tricks hier aus dem Forum bekommen habe möchte ich auch endlich gerne mal helfen )

SO mache ich es:

Delphi-Quellcode:

procedure OpenCashDrawer;
var
  hPrinter, hDeviceMode: THandle;
  N: DWORD;
  DocInfo1: TDocInfo1;
  Device, Driver, Port: array [0 .. 255] of Char;
  PrinterName, ThePrinter: string;
  Code: AnsiString;
begin
  begin
    Code := AnsiChar(27) + AnsiChar(112) + AnsiChar(0) + AnsiChar(64) + AnsiChar(240);

    Printer.PrinterIndex := Printer.Printers.IndexOf('Name deines druckers');
    Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
    PrinterName := Format('%s', [Device]);
    if not WinSpool.OpenPrinter(PChar(PrinterName), hPrinter, nil) then
    begin
      ShowMessage('Error : ' + IntToStr(GetLastError));
      Exit;
    end;
    with DocInfo1 do
    begin
      pDocName := 'Test';
      pOutputFile := nil;
      pDataType := 'RAW';
    end;
    WinSpool.StartDocPrinter(hPrinter, 1, @DocInfo1);
    WinSpool.StartPagePrinter(hPrinter);
    WinSpool.WritePrinter(hPrinter, PAnsiChar(Code), Length(Code), N);
    WinSpool.EndPagePrinter(hPrinter);
    WinSpool.EndDocPrinter(hPrinter);
    WinSpool.ClosePrinter(hPrinter);
  end;
end;

Hope it helps!

P.S.: geht bestimmt eleganter, aber....