Imprimir

Ola galera, estou tentando enviar um impressão direto para porta “LPT1”, por exemplo em Delphi funciona assim

var
f:textfile;
begin
assignfile(f,‘LPT1’);
rewrite(f);
writeln(f,‘Reletorio’);
writeln(f,’…’);
writeln(f,’…’);
writeln(f,’…’);
writeln(f,’…’);
writeln(f,‘Fim da Impressão’);
closefile(f);
end;