Código Delphi [-] procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin QrShape1.Size.Height:=Detailband1.Size.Height; end;
procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin QrShape1.Size.Height:=Detailband1.Size.Height; end;