Gracias Lepe por tu ayuda de otro lado mirando el codigo que me dio aladelta me genera un error de compilacion en la siguiente linea:
Código Delphi
[-]
if TQuickrep(TQRPreview(Screen.Forms[i].controls[4]).qrprinter.parentreport).name=buscar then
especificamente en ParentReport no se que unidad es la que maneja esta función o como puedo hacer para que este error desaparesca.