[heroe]

Código Delphi [-]
procedure imprimir();
var
  Archivo: TextFile;
begin
  {$I-}
  AssignFile(Archivo, '\\Servidor\LPT1');
  {$I+}
  Rewrtite(Archivo);
  Writeln(Archivo, 'Prueba');
  CloseFile(Archivo);
end;

Siempre devuelve el error 103. Nota el LPT1 es el puerto a donde esta conectada la impresora en el Servidor.