报表画线和自适应页面补空行方法示例

t小宝

此例改自红尘如烟的报表补空行例子，可不指定每页行数，自动将空行补满页面，预览时改变页面设置后也可自动调整空行数，适应页面。

t小宝

解决此悬赏题，但悬赏还是留给有人做出不同的例子
http://www.office-cn.net/thread-93216-1-4.html

t小宝

也有个问题，画的线是最细的那种，能不能自定义线的粗细呢？
另就是我只要外框的线粗些，里面画线细些呢？
xulanghui 发表于 2010-9-30 22:51

这个可以实现，自己改下代码

今早又发现一个问题，遇到某行字数较多自动换行时，画线就乱了。
xulanghui 发表于 2010-10-1 07:11

确实，此例要求主体节的行高都是一样的，须把主体节上的控件的可以扩大和可以缩小属性设为否。
如果行高不固定，似乎没有必要补空行，因为空行的行高是固定的，这样反而不美观。

t小宝

回复 ycxchen 的帖子

不是说了吗
须把主体节上的控件的可以扩大和可以缩小属性设为否。

   

t小宝

线条粗细...
有空再补充一下

t小宝

回复 ycxchen 的帖子
在例子中的ReportSheet函数过程的最后添加以下2行代码可实现外框加粗，DrawWidth 属性决定线条粗细，可自行调节。

    rpt.DrawWidth = 16
    rpt.Line (lngLeft, lngTop)-(lngRight, lngBottom), , B