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:

...
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...