在FastReport.v2.52的报表中,如何空白补行啊! ( 积分: 100 )

  • 主题发起人 主题发起人 kjhwxm
  • 开始时间 开始时间
K

kjhwxm

Unregistered / Unconfirmed
GUEST, unregistred user!
比如:我想在一段文字的开始空两格,不换行可以,文字多了,一换行就不行了!请高手指教啊
 
MasterData1.Streached := true;
每个 Memo 的 MasterData.StreachMode 设为 smMaxHeight;
 
Memo 的gapX 可以调整横向距离, GAPY可以调整纵向距离
 
谢谢啊!不过我说的是:在frReport控件中的矩形对象中的段落格式:
比如象下面:
电风扇艰苦觉得深刻机大师傅计划大声疾呼的电视机觉得升降舵发生
飒飒撒旦后果洒家大家撒棵!
前面让空两格!各位大哥指教啊!
 
不理解,手工补两个空格不就行了。你要自动补空格?
 
我换了控件,可以啦,另外,如果我想问一下,怎样一下子清空FORM上所有的EDIT控件的值
 
放以下四个组件(FastReport4.0)
ColumnHeader1(用来显示标题的),
MasterData1(数据集dataSet1,有OnBeforePrint事件),
Child1(补空行用的,里面放空的Memo框跟MasterData1中的Memo对齐),
ColumnFooter1(用来显示页合计之类用的,有OnBeforePrint事件)
注:数据集dataSet1是通过:报表-->数据... 中选进来的。
//************************************代码部分**********************************
var
maxline: integer;//每页行数
f: boolean;
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
var
lineNo1: integer;
begin
lineNo1:= (<line> -1) mod maxline;//
if (lineNo1 = 0) and (<line> <> 1) then
begin
f := false;
Engine.NewPage;
f := true;
end;
end;

procedure ColumnFooter1OnBeforePrint(Sender: TfrxComponent);
var
lineNo2: integer;
begin
lineNo2:= <line> mod maxline;
while f and (lineNo2 < maxline)do
begin
lineNo2 := lineNo2 + 1;
Engine.ShowBand(Child1);
end;

end;

begin
maxline :=6;
//每页行数
f := true;
end.

//************************************代码部分**********************************
以上代码可以实现:每页打印固定行,如果未页数小maxline,则补足到maxline行。
现有一个问题:就是页合计问题,如:数据集DataSet1,其中有一个money字段,现在要进行页小计,那么在ColumnFooter1中放一个Memo框,其计算公式为:[SUM(<DataSet1.&quot;money&quot;>,MasterData1)],如果当前页没有进行补空行,那么页小计是对的;如果有进行补空行的话,那么页小计显示为“空”。即:有进行补空行的页,页小计就不对;没进行补空行的页,页小计是对的。
 
接受答案了.
 
后退
顶部