Hallo,
hier noch eine minimalistische Alternative:
Delphi-Quellcode:
function PrintEsc(
const data:
string): Boolean;
var
pd: PChar;
begin
Printer.BeginDoc;
pd := PChar(Data);
Dec(PInteger(pd));
if Length(data) = PInteger(pd)^
then Result := Windows.Escape(Printer.Handle, PASSTHROUGH, 0, pd,
nil) <> 0
else Result := False;
Printer.EndDoc;
end;
Grüße vom marabu