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