[ecfisa]

Hola eroblesh.

Probá con este código en el evento BeforePrint del TQRBand que lo contiene:

Código Delphi [-]
...
begin
  with QRShape1.Size do
  begin
    Left:=0;
    Top:= 0;
    Height:= QRBand1.Size.Height;
    Width:= QRBand1.Size.Width;
  end;
end;

Saludos.