主题：[求助]excel报表对角线怎么处理？

我有二个办法，一是将对角线放在第一列，列宽与第二列相同，打开模板时也能正常显示
第二个办法，就是做一个打印按钮，在代码中加上对角线，代码如下：就相当于基于模板，加上对角线
Dim Book As New XLS.Book(ProjectPath & "Attachments\表A.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As XLS.Style = Book.NewStyle()
Style.DiagonalStyle= XLS.LineStyleEnum.Thin
Style.DiagonalColor =Color.Red
Style.Diagonal = XLS.DiagonalEnum.Forward
For r As Integer = 0 to 1
Sheet(r,r+1).Style = Style
 Next
  
Book.Build() '生成细节区
Book.Save(ProjectPath & "reports\表A.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = ProjectPath & "reports\表A.xls"
Proc.Start()

注意，代码中红色部分是改线条颜色的，我用的红色线，你可以改成黑色

以下是引用mr725在2009-10-20 22:55:00的发言：
要这样设置模板

此主题相关图片如下：对角线模板+.jpg

下载信息  [文件大小：16.0 KB  下载次数：0]

点击浏览该文件:对角线.rar

[此贴子已经被作者于2009-10-21 0:09:01编辑过]

就是我说的第一种办法啊,呵呵