QRPrintSetup actualizar impresora seleccionada

[jonydread]

Buenas noches desde aca, les cuento tengo un quickrep, con una preview personalizada esta agrege botones con una coolbar, al boton imprimir le puse el sgte codigo y si cambio la impresora le da igual siempre me tira la impresion a la misma impresora, aca en el foro hay temas sobre esto pero no encontre una solucion

Código Delphi [-]
procedure TPreview.ToolButton1Click(Sender: TObject);
begin
reporteform.quickrep1.QRPrinter.PrintSetup;
if reporteform.quickrep1.QRPrinter.Master.tag = 0 then
        reporteform.quickrep1.QRPrinter.Print;
end;

adjunto custompreview.pas

saludos