- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何调整EXCEL分页符位置？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93328)
-- 发布时间：2016/11/25 11:55:00
-- [求助]如何调整EXCEL分页符位置？
如何调整分页符位置？
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\\11.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
\'对A列从65536行开始向上查找,直到找到最后一个非空单元格为止,并得到其行号.也就是有内容的结束行
Dim EndRow As Integer = Ws.Range("A65536").End(MSExcel.XlDirection.xlUp).Row
\'对A列从第1行开始向下查找,直到找到最后一个非空单元格为止,并得到其行号.也就是有内容的开始行
Dim FirstRow As Integer = Ws.Range("A1").End(MSExcel.XlDirection.xlDown).Row
\'对A列从第1行开始向下查找,直到找到最后一个非空单元格为止,并得到其行号.也就是有内容的开始行
Ws.Cells.PageBreak = MSExcel.XlPageBreak.xlPageBreakNone\'清除所有分页符
For i As Integer = FirstRow+6 To EndRow Step 5 \'每5行就分页
Ws.Rows(i).PageBreak = MSExcel.XlPageBreak.xlPageBreakManual
Next
App.Visible = True
Ws.PrintPreview
App.Quit
结果报错，出现如下对话框：
此主题相关图片如下：x.jpg
-- 发布时间：2016/11/25 12:02:00
--
代码测试没有问题。上传你的Excel文件看看
-- 发布时间：2016/11/25 12:41:00
--
我的文件需要每44行加入一个分页符
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:11.xls |
-- 发布时间：2016/11/25 13:13:00
--
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\\11.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim i As Integer = 45
Do While i < ws.usedRange.rows.count
Ws.Rows(i).PageBreak = MSExcel.XlPageBreak.xlPageBreakManual
i += 44
Loop
wb.saved = True
App.Visible = True
Ws.PrintPreview
App.Quit
-- 发布时间：2016/11/25 13:32:00
--
谢谢