【结】报表字段自增[问题]**

wangyinchang · 发表于 2008-9-20 08:13:59

我现在遇到一个这样的情况：
报表中一个字段，为文本格式，录入的文字个数从10---10000，这个字段需要打印，要是A4的一页纸打印不下，自动换页到下页。

遇到的问题是：设计的报表高度不自动自增，在设计的时候，报表高度是多大，打印的时候就显示多大，多余的文章不显示出来

那位大侠指点一下？

谢了

shangxy · 发表于 2008-9-20 10:14:57

http://bbs.justep.com/forum.php? ... 4%B6%AF%D0%D0%B8%DF

wangyinchang · 发表于 2008-9-20 11:07:13

行和列要是同时变化呢？
是否必须用代码控制？
代码如何实现控制？

表格文档编辑时，由于录入字数，差距太大，要是设置固定的行列，稍微一大，当有几个字的时候，特别难看。
设计的很小，当字数特多的时候，设计的显示几个字的行列大小，不好编辑。

shangxy · 发表于 2008-9-20 13:00:07

没有什么好的方法了，只能把表格调整到一个合适的宽度，然后在设置自动大小了。

wangyinchang · 发表于 2008-9-20 14:26:50

要是能用代码控制的话，可以根据字数的多少判断，自动增减行数，

要是不行的话，理想的大小就是4----5行，但是，当有几个字的时候，空出来的地方很大，看起来很别扭

思考中。。。

谁还有更好的办法呢

shangxy · 发表于 2008-9-20 15:26:03

有点不明白楼主的意思了，如果设置了打印的自动大小为行的时候，那么打印预览的时候会根据内容的多少自动适应行高，代码控制如下：
TDataSheetArea(YWXX1.TBGWD1(DocViewYWXX1_BGWD1.Doc).Sheet.Areas[0]).AutoSize :=TAreaAutoSizeType.astRow;
如果在编辑状态可以向下面这样控制，但是需要关闭喝打开文档，如果行数比较多的话会影响性能：
  DocViewYWXX1_BGWD1.Doc.Close;
  YWXX1.TBGWD1(DocViewYWXX1_BGWD1.Doc).Sheet.RowHeights[5]:=100;
  DocViewYWXX1_BGWD1.Doc.Open(TDocMode.dmEdit,self);

wangyinchang · 发表于 2008-9-20 17:16:22

谢谢shangxy的答复，我在测试研究一下。

atiger · 发表于 2008-9-26 09:35:05

有结果了吗？无论怎样，都请反馈一下吧

wangyinchang · 发表于 2008-10-17 13:11:26

最近网速慢，也不方便上网，没有及时反馈，抱歉！！

2楼方法不错！！

问题解决！

多谢回复！

		自动登录	找回密码
密码			立即注册