Error al imprimir archivo de texto en impresora en red

[vicvil]

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

[ecfisa]

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.

[vicvil]

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