Un método sencillo podría ser este:
Código Delphi
[-]
uses Printers;
procedure SeleccionarImpresora(Nombre: String);
var
Index: Integer;
begin
Index := Printer.Printers.IndexOf(Nombre);
if Index <> -1 then
Printer.PrinterIndex := Index;
end;
// Saludos