如何将fastreport中的MEMO的内容自动缩小字体？

Question

请教各位大虾，用fastreport打印报表时，如果memo中内容多了如何将字体缩小？

Answer 1

试试FastReport里Memo的Stretch：在Memo上点右键，选中Stretch。

Answer 2

谢谢二位。
ccrun(老妖)(www.ccrun.com) ，现在Strethed是true。
real_name(*真名)，如果不自动缩小到自适应的情况，可不可以在onbeforeprint里，设置memo的字体可以小一点呢？

Answer 3

有人告诉
frReport1->FindObject("Memo10")->Memo->Font->......=值！ 
可是怎么使用呢？

Answer 4

大概是这个意思：(frxReport1.FindObject('Memo10') as TfrxMemoView).Font.Size := 8;

Answer 5

ccrun(老妖)(www.ccrun.com) ( )，在程序的哪里写呢。
以前是这样用的。  khqc_rprt := TfrMemoView(frRprt_ck.FindObject('Rm_khqc'));  khqc_rprt.Memo.Text := Edt_khqc.Text;
现在应该怎么写呢？

Answer 6

借问提个问题？
使用FR 的 frxDBCrossView 生成的交叉表，如何改变列宽度？

Answer 7

onbeforeprint 里写 不知道 可以不？

Answer 8

在onbeforeprint 里写
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
   if Length(Memo1.value)>100 then
       Memo1.Font.size:=10
   else Memo1.Font.size:=20;
end;以上代码经fastreport3.2测试通过

Answer 9

谢谢;mestars(米豆)(☆☆) ( ) 信誉：100    Blog 
可是我的fastreport的版本是2.52,告诉Memo1.value这个值是错误的,应该怎么办呢?

Answer 10

var t1:TfrMemoView;
begin
  t1:=TfrMemoView(fastreport1.FindObject('Memo1'));
  if (t1<>nil) and (Length(t1.Memo.Text)>100) then t1.Font.Size:=10;
end;

Answer 11

谢谢samcrm(镜花水月) ( ) ，可是没弄明白，你的这段放在哪呢？