Quickreport

Eu novamente :mellow:

Tentei pesquisar antes de vir perguntar, mas realmente nao consegui realizar essa tarefa.

Meu problema é o seguinte:

Possuo um relatório de Quickreport, que será dado o Preview e entao quando a pessoa clicar em IMPRIMIR, ele vai automaticamente (sendo como uma segunda impressão), trocar a impressora (escolher a impressora que gera PDF's) e mandar imprimir tambem.

Eu consegui fazer a seleção de impressora e tudo mais.

Porem nao consigo fazer com que ele imprima essa segunda vez.

O código está assim:

procedure TFrmRelConsertoRel.QuickRep1AfterPrint(Sender: TObject);
var

	impressoras : TStrings;
	cont, printindex : integer;

begin

 impressoras := Printer.Printers;
 For cont:=0 to impressoras.Count-1 Do
	If impressoras[cont] = '\\servidor\PDFCreator' then printindex:=cont;

 while QuickRep1.QRPrinter.Status <> mpBusy do
 begin
	with QuickRep1.PrinterSettings do
 if PrinterIndex <> printer.printerIndex then
 PrinterIndex := printindex;

	QuickRep1.QRPrinter.Print;	///PROVAVEL ERRO, ESTÁ AQUI?!

 //enviaemail;
 end;
end;

No entanto não estou conseguindo.

O que pode estar errado?

Obrigado desde já.

Até mais!!!