[求助]如何让打开的excel报表自动重设分页符？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何让打开的excel报表自动重设分页符？

共有4804人关注过本帖树形打印复制链接主题：[求助]如何让打开的excel报表自动重设分页符？

bigeng

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：四尾狐帖子：851 积分：5858 威望：0 精华：0 注册：2014/5/20 17:56:00

[求助]如何让打开的excel报表自动重设分页符？ 发帖心情

Post By：2015/1/1 22:33:00 [显示全部帖子]

生成的excel报表如何打开后自动重设分页符，每次都手工重设太麻烦了？

bigeng

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：四尾狐帖子：851 积分：5858 威望：0 精华：0 注册：2014/5/20 17:56:00

Post By：2015/1/2 10:13:00 [显示全部帖子]

因为格式需要，模板里面已经加了强制分页，但是因为打印的表格不固定，许多时候打印一张太浪费了，所以不得不重新手工重设分页符，但这样太麻烦了，所有想请教有没有更好的方式解决一下。就是生成报表后能够自动重设分页符？

bigeng

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：四尾狐帖子：851 积分：5858 威望：0 精华：0 注册：2014/5/20 17:56:00

Post By：2015/1/4 10:45:00 [显示全部帖子]

甜版，看看生成excel报表后能够自动重设分页符吗？

bigeng

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：四尾狐帖子：851 积分：5858 威望：0 精华：0 注册：2014/5/20 17:56:00

Post By：2015/1/4 16:46:00 [显示全部帖子]

甜版，自动重设所有分页符在这段代码后如何设呀，刚才弄了半天老出错，只能求助您了!

Dim Book As New XLS.Book(ProjectPath & "Attachments\运费(对账打印).xls")

Dim fl As String = ProjectPath & "Reports\运费(对账打印).xls"

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

Dim Proc As New Process '打开工作簿

Proc.File = fl

Proc.Start()

bigeng

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：四尾狐帖子：851 积分：5858 威望：0 精华：0 注册：2014/5/20 17:56:00

Post By：2015/1/4 17:09:00 [显示全部帖子]

谢谢！

主题：[求助]如何让打开的excel报表自动重设分页符？