Código Delphi [-] procedure PrintLine(S: string); begin with TFileStream.Create('LPT1', fmOpenWrite) do try S := S + #13#10; Write(S[1], Length(S)); finally Free; end; end;
procedure PrintLine(S: string); begin with TFileStream.Create('LPT1', fmOpenWrite) do try S := S + #13#10; Write(S[1], Length(S)); finally Free; end; end;