Und so? (nicht über TPrinter, sondern direkt an den Drucker-Port)
Delphi-Quellcode:
var
myFile: TextFile;
AssignFile(myFile, 'LPT1'); // Port 1 (nummeriert, so wie z.B. das bekannte COM1)
Rewrite(myFile);
Write(myFile, AnsiString(AnsiChar(27) + AnsiChar(112) + AnsiChar(0) + AnsiChar(64) + AnsiChar(240)));
//Write(myFile, AnsiString(#27#112#0#64#240));
CloseFile(myFile);
bzw.
Delphi-Quellcode:
with TFileStream.Create('LPT1', fmOpenWrite) do
try
WriteBuffer(PAnsiChar(AnsiString(#27#112#0#64#240))^, 5);
finally
Free;
end;