Error al imprimir archivo de texto en impresora en red
 

Tengo problema al tratar de imprimir un archivo de texto a una impresora conectada a otro pc en red, lo hago de la forma:

AssignFile(Archivo,puerto);

en este caso puerto vendria siendo \\pcenred\impresorared

al hacer el Rewrite(Archivo)

el sistema manda error i/o 53 que quiere decir que la ruta de la red está perdida, pero la ruta está bien, la impresora está conectada, etc...está todo correcto, pero siempre envía ese error o el error i/o 64 que es lo mismo...
He visto este error en varias páginas de internet pero en ninguna he visto la solución...
Alguien puede darme una idea para solucionar esto???
Gracias

Hola vicvil.

Te pongo un ejemplo en el que tenes que seleccionar la impresora desde un combo (para descartar cualquier error de tipeo) y luego imprime una línea de texto mediante un TButton:

Código Delphi [-]
...
uses Printers;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.Assign(Printer.Printers);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  prn: TextFile;
begin
  if ComboBox1.ItemIndex <> -1 then
  try
    Printer.PrinterIndex := Printer.Printers.IndexOf(ComboBox1.Text);
    AssignPrn(prn);
    Rewrite(prn);
    Writeln(prn,'***** PRUEBA DE IMPRESION DE TEXTO *****');
    CloseFile(prn);
  except
    on E : Exception do
     ShowMessage(E.Message);
  end;
end;
...

Saludos. :)

Gracias ecfisa, de esa forma me resultó, de la anterior que había hecho no hubo caso...