WPQuickPrint problem

Hi. I need a application that have a TQuickRep, that contens a TQRBand type PageFooter. In this band i put a TWPQuickPrint and before preview or print the quick report populated this component (wpquickprint) like:

// frReceit is TQuickRep
// dmSM.ConfigDES_RODDOC is TField
// Rodape if TWPQuickPrint

wl_Stream.Position := 0;
dmSM.ConfigDES_RODDOC.SaveToStream(wl_Stream);
wl_Stream.Seek(0,0);
frReceit.Rodape.LoadFromStream(wl_Stream);

frReceit.Preview;

But i need define the frReceit.Rodape size after load from stream. How can i do this ?
Thanks
Alessandro

Hi. The problem is how can i know the height and width of Rodape after load stream ?

This stream can have 1 or 5 lines. Depends this i can defined the Rodape size.

Thanks

Hi. Julian. I try what you sugest but dont work. I do this test and the before and after the properties frReceit.Rodape.RTFText.GetAllTextHeight, frReceit.Rodape.Height and frReceit.Rodape.Size.Height is exactly the same. You can show-me how can i do to, after loadfromstream, know the height to change the quickreport band . Anythink like AutoStresh of TQRMemo.

Thanks
Alessandro

ShowMessage('before-'+
IntToStr(frReceit.Rodape.RTFText.GetAllTextHeight)+' - '+
IntToStr(frReceit.Rodape.Height)+' - '+
IntToStr(trunc(frReceit.Rodape.Size.Height)));
frReceit.Rodape.Visible := true;
wl_Stream.Position := 0;
dmSM.ConfigDES_RODDOC.SaveToStream(wl_Stream);
wl_Stream.Seek(0,0);
frReceit.Rodape.LoadFromStream(wl_Stream);
frReceit.Rodape.RTFText.ReformatAll;
ShowMessage('after-'+
IntToStr(frReceit.Rodape.RTFText.GetAllTextHeight)+' - '+
IntToStr(frReceit.Rodape.Height)+' - '+
IntToStr(trunc(frReceit.Rodape.Size.Height)));

Thanks Julian. I follow your last suggest.
I do this and work:

frReceit := TfrReceit.Create(Self);
  wl_Stream := TMemoryStream.Create;
  try
    // cria WTWPRichText para definir tamanho do rodape
    wl_RichText := TWPRichText.Create(self);
    wl_RichText.Parent := self;
    wl_RichText.Visible := false;
    wl_RichText.EditBoxModes := [wpemAutoSizeHeight,wpemAutoSizeWidth];
    wl_Stream.Position := 0;
    dmSM.ConfigDES_RODDOC.SaveToStream(wl_Stream);
    wl_Stream.Seek(0,0);
    wl_RichText.Clear;
    wl_RichText.LoadFromStream(wl_Stream);
    wl_RichText.Refresh;
    frReceit.Rodape.Visible := true;
    frReceit.Rodape.RTFText.Assign(wl_RichText.RtfText);
    frReceit.Rodape.Height := wl_RichText.Height;
    frReceit.Rodape.Width := wl_RichText.Width;
    frReceit.QRBand2.Height := 110+wl_RichText.Height;
  finally
    wl_RichText.Free;
  end;