Foxtable(狐表)用户栏目专家坐堂 → [求助]关于EXCEL报表自动换行及根据长度换页


  共有2533人关注过本帖平板打印复制链接

主题:[求助]关于EXCEL报表自动换行及根据长度换页

帅哥哟,离线,有人找我吗?
benwong2013
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:485 积分:4075 威望:0 精华:0 注册:2015/12/16 8:22:00
[求助]关于EXCEL报表自动换行及根据长度换页  发帖心情 Post By:2016/3/25 16:48:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看


如上图,因为在数据的长度并不一样,希望在生成excel格式时候:
1.若超过规定格子宽度的能自动换行;
2.若换行之后,格子高度能自动调节,但只是针对此选中的细节区,不希望这个报表都自动调节格子的高度;
3.因一张A4纸的长度有限制,希望到细节区的表格长度超过一定数的时候能自动换页,而不是根据表格的列来自动换行;

请问应该如何处理,是在报表中设置还是在生成报表中代码进行增加;

Dim Book As New XLS.Book(ProjectPath & "Attachments\Greport.xls")
Dim fl As String = ProjectPath & "Reports\Greport.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

 回到顶部