for rv := 0 to  Report.PreviewPages.Count - 1 do
      begin
        frxPage:= Report.PreviewPages.Page[rv];
        if jcntQR = cntQR then
          Break;
        for I := 0 to frxPage.AllObjects.Count - 1 do
        begin
          if TObject(frxPage.AllObjects.Items[i]).ClassNameIs('TfrxPageFooter') then
          begin
            pagefooter:= TObject(frxPage.AllObjects.Items[i]) as TfrxPageFooter;
            sizeBarcode.Empty;
            with sizeBarcode do
            begin
              Left:= 0;
              Top:= 0;
              Width:= 0;
              Height:= 0;
            end;

            repeat
              pictLogo:= TfrxZintBarcode.Create(pagefooter);
              pictLogo.BarcodeType:= tBARCODE_QRCODE;
              pictLogo.DataFormat:= dfUTF8;
              pictLogo.Data:=
                '<?xml version="1.0" encoding="UTF-8"?><root><elementdata>' +
                Copy(outsign, (jcntQR * 896) + 1, 896) +
                '</elementdata><elementnumber>' + IntToStr(jcntQR) +
                '</elementnumber><elementsAmount>' + IntToStr(cntQR) +
                '</elementsAmount></root>';
              inc(jcntQR);
              pictLogo.Name:= 'QR_CODE' + IntToStr(jcntQR);
              pictLogo.SetBounds(
                sizeBarcode.Left,
                sizeBarcode.Top,
                sizeBarcode.Width,
                sizeBarcode.Height
              );
              pictLogo.Zoom:= 0.5;
              sizeBarcode.Left:= sizeBarcode.Left + Trunc((pictLogo.Width)) + 10;
              sizeBarcode.Width:= Trunc(pictLogo.Width);
              pictLogo.Height:= pictLogo.Width;
              if sizeBarcode.Height < pictLogo.Width then
                sizeBarcode.Height:= Trunc(pictLogo.Width);
            until ((jcntQR mod (trunc(pagefooter.Width) div sizeBarcode.Width)) = 0) or (jcntQR = cntQR);

            pagefooter.Height:= pagefooter.Height + sizeBarcode.Height + 5;

            for k := 0 to pagefooter.AllObjects.Count - 1 do
              if not TObject(pagefooter.AllObjects.Items[k]).ClassNameIs('TfrxZintBarcode') then
                TfrxReportComponent(pagefooter.AllObjects.Items[k]).Top:= sizeBarcode.Height;
            Break;
          end;
        end;

        if Report.Preview <> nil then
        begin
          Report.Preview.Lock;
          Report.PreviewPages.ModifyPage(rv, TfrxReportPage(frxPage));
          Report.Preview.Repaint;
          Report.Preview.Unlock;
        end;
      end;