Impresora predeterminada?

[__cadetill]

Veamos

Nosotros tenemos varias impresoras y, según el listado, éste ha de salir por una o por la otra. ¿Cómo lo hacemos? Pues bien, tenemos un archivo INI más o menos con esta estructura:

[IMPRESORAS]
ETIQUETAS=SP40
LISTADO_STOCKS=Lexmark Optra W810
A3=SuperLexmark
.....

Me imagino que lo entiendes, pero sino, lo que ponemos es un nombre de variable (etiquets, listado_stocks, a3,...) y el nombre de la impresora por el cual lo queremos imprimir (el que ves en la pantalla de impresoras instaladas en el sistema).
Luego, me creé la siguiente función con la que recupero la impresora deseada

...
const
  PrintersIni = 'c:\ImpJulia\Printers.ini';
.....

function TBaseListado.GetImpresora(Impresora: string) : integer;
var
  Ini : TIniFile;
  Imp : string;
  i : integer;
begin
  if FileExists(PrintersIni) then
  begin
    Ini := TIniFile.Create(PrintersIni);
    Imp := Ini.ReadString('IMPRESORAS', Impresora, '');
    Ini.Free;
  end;

  if Imp = '' then
    Result := -1
  else
  begin
    // buscamos la impresora en las instaladas y devolvemos su índice
    for i := 0 to Printer.Printers.Count - 1 do
      if Pos(Imp, Printer.Printers[i]) <> 0 then Break;
    Result := i;
  end;
end;

Y luego, desde algún lugar y, antes de hacer el Print o Preview del listado se hace la asignación al QuickReport

var
  Indice: integer;
begin
  .....
  Indice := GetImpresora('A3');
  if Indice <> -1 then
    Report.PrinterSettings.PrinterIndex := Indice;
  .....
  QuickReport1.Print; // o QuickReport1.Preview;

La función tiene un pequeño "bug" que no he tenido ni tiempo ni ganas de arreglar. Y es que si la impresora está definida pero no está configurada, petaría. Este pequeño detalle ya te lo dejo a ti (si lo quieres solucionar)

Bueno, espero que ahora sí puedas hacer lo que quieres