如题

求助 如何在打印时设置 excel 表头

老师 我 录入 excel 全 一个个框 录入  ， 没模板的  那该如何设置呢  代码如下

Dim Book As New XLS.Book
Dim alist As List(of String)
alist = DataTables("客户消费").GetValues("员工编号")
For Each a As String In alist
Tables("客户消费").Filter= "员工编号 = \'" & a & "\'"
Dim Sheet As XLS.Sheet = Book.Sheets.Add(a) \'增加一个工作表
Dim Style As XLS.Style = Book.NewStyle() \'定义新样式
Style.BorderTop = XLS.LineStyleEnum.Thin
Style.BorderBottom = XLS.LineStyleEnum.Thin
Style.BorderLeft = XLS.LineStyleEnum.Thin
Style.BorderRight = XLS.LineStyleEnum.Thin
Style.BorderColorTop = Color.Red
Style.BorderColorBottom = Color.Red
Style.BorderColorLeft = Color.Red
Style.BorderColorRight = Color.Red
Style.AlignHorz = XLS.AlignHorzEnum.Center
Style.AlignVert = XLS.AlignVertEnum.Center
Sheet(0,0).Value =  a & "工资单"
Sheet(1,0).Value ="当月工资明细"
Dim p As Integer
For p = 0 To Tables("客户消费").Cols.Count-1
Sheet(2,p).Value = Tables("客户消费").Cols(p).Name
Sheet(2,p).Style = Style
Next
Dim i,y As Integer
For i = 0 To Tables("客户消费").Rows.Count-1
For y = 0 To Tables("客户消费").Cols.Count-1
sheet(i+3,y).Value =  Tables("客户消费").Rows(i)(y)
Sheet(i+3,y).Style = Style
Next
Next
sheet(i+6,0).Value = "生产总值:"
sheet(i+6,2).Value = Tables("客户消费").Compute("sum(费用)") & "元"
Sheet(i+6,2).Style = Style

sheet(i+6,y-3).Value =  "工资总额:"
sheet(i+6,y-1).Value = Tables("客户消费").Compute("sum(提成)") & "元"
Sheet(i+6,y-1).Style = Style

Next
Book.Save("C:\\Documents and Settings\\Owner\\桌面\\test.xls") \'保存工作簿.
Dim Proc As New Process \'打开工作簿
Proc.File = "C:\\Documents and Settings\\Owner\\桌面\\test.xls"
Proc.Start()

 表头？你要插入到哪个位置都是可以的。

 弄不会的话，就上传一个例子吧。

例如 我要把

sheet  第一 到第三行 作为表头   该如何设置？

一共有7列

你说的excel表头，是什么意思？每一页都打印一个表头？

这个表头又是什么？截图，或例子说明

2位 请看图片   excel  一样的 打印表头。也就是顶端标题行设置。

此主题相关图片如下：未命名.jpg


此主题相关图片如下：未命名1.jpg