[roman]

Un método sencillo podría ser este:

Código Delphi [-]
uses Printers;

procedure SeleccionarImpresora(Nombre: String);
var
  Index: Integer;

begin
  // Buscamos la impresora deseada en la lista de impresoras
  Index := Printer.Printers.IndexOf(Nombre);

  // Si la encontramos, dejamos que PrinterIndex haga el trabajo sucio 
  if Index <> -1 then
    Printer.PrinterIndex := Index;
end;

// Saludos