[ecfisa]

Hola.

No parece haber ningún error allí, solo por si acaso... ¿ Controlas el valor del índice del combo ?

Código Delphi [-]
begin
  if CBImpresora.ItemIndex = -1 then  // <-
    Exit;
  QImprimir1.QRep.QRPrinter.PrinterIndex := Printer.Printers.IndexOf(CBImpresora.Text);
end;

Saludos