Bem, vamos ao que interessa. Declare na cláusula uses a unit Printers.
Coloque no form um ComboBox e no evento onCreate do form, faça:
ComboBox1.ItemIndex := 0;
Ainda no form, faça no evento onShow:
ComboBox1.Items.Assign(Printer.Printers);
Agora no botão de Imprimir, antes da linha que imprime o relatório, basta alterar a impressora padrão do componente de relatório, no caso, do QuickReport, como no exemplo:
Application.CreateForm(TForm2, Form2); //Cria o form. do relatório
try
Form2.QuickRep1.PrinterSettings.PrinterIndex := ComboBox1.ItemIndex; //Define a impressora selecionada
Form2.QuickRep1.Print; //Imprime o relatório
finally
Form2.Release; //Libera o Form da memória
end;
