Error al imprimir archivo de texto en impresora en red

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