[[cHackAll]]

Código Delphi [-]
procedure Imprimir;
var Archivo: TextFile;
begin
 AssignFile(Archivo, '\\Servidor\LPT1');
 {$I-} Reset(Archivo); {$I+}
 if IoResult = 0 then
  begin
   Writeln(Archivo, 'Prueba');
   CloseFile(Archivo);
  end;
end;