[[basti]]

Puedes usar el procedimiento AssignPrn y sacando el nombre de TPrinter:

Código Delphi [-]
  var
    f : textfile;

begin
  pr := TPrinter.Create;
  printer.PrinterIndex := pr.Printers.IndexOf('aquí el nombre de la impresora');
  AssignPrn(f);
  Rewrite(f);

  write(f, 'lo que quieras imprimir');


  closeFile(f);
  pr.free;
end;