Wie Nadeldrucker per ASCII-Zeichen die Blattlänge übergeben?

[mischerr]

Ich kanns zwar grad nicht testen, aber probier mal folgendes:

Code:

procedure SendeESCSequenz;
const mySequenz   = #027#000#001#002#013#010; // <- Hier deine ESC-Sequenz!
var   myPrinter   : THandle;
      writtenBytes: dword;
      ok          : boolean;
begin
  ok:= false;
  myPrinter:= CreateFile('\\.\LPT1', GENERIC_WRITE, 0, nil, OPEN_EXISTING,
                         FILE_ATTRIBUTE_NORMAL, 0);
  if myPrinter<>INVALID_HANDLE_VALUE then begin
     if WriteFile(myPrinter, mySequenz[1], length(mySequenz),
                  writtenBytes, nil) then ok:= writtenBytes=length(mySequenz);
     CloseHandle(myPrinter);
  end;
  if ok then MessageDlg('Ok!', mtInformation, [mbOk], 0)
     else MessageDlg('Sorry!', mtError, [mbOk], 0);
end;

Grüsse!