继续。
用了模板以后,可能会因为列宽的偏差累计,复制的标题列会出现到下一页的第2列中,甚至第3页中。
所以,应当在复制的标题列的前一列强制换页。
强制分页能否在模板中设置?
Dim Book As New XLS.Book("c:\reports\test.xls") '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim Style As XLS.Style = Book.NewStyle()
'定义新样式
Style.ForeColor = Color.Red '设置样式的字体颜色
Sheet.Cols(0).Width = 120 '设置第1列的宽度
Sheet.Cols(0).Style = Style
'设置第1列的样式
Sheet.Cols(4).PageBreak = True
'在第5列处强制分页
Book.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File =
"c:\reports\test.xls"
Proc.Start()
试了一下,用 ws.cells(1,N ).PageBreak = True也可以哟。
[此贴子已经被作者于2018/3/3 14:17:58编辑过]