[[rruz]]

Hola aqui tienes un pequeño codigo que te puede ayudar

Código Delphi [-]
Uses 
.... 
....   
Printers;  

Procedure Tarea;
Begin 
//Cargamos impresoras en combobox
ComboBoxImpresora.Items.Clear;
ComboBoxImpresora.Items.AddStrings(Printer.Printers);
//
     With ComboBoxImpresora do     
     Begin     
    //Buscamos el indice de la impresora a asignar
    ItemIndex     :=Items.IndexOf('PDF Creator');
    //Asignamos el indice de  la impresora
    if ItemIndex<>-1 then     
    QuickReport1.PrinterSettings.PrinterIndex:=ItemIndex;     
    End;
End;

Saludos