主题：隐藏列

 你在模板里面，设计不引用此列就行。

 如果真要控制模板，就必须在报表打印之前，循环每一个单元格，看是否存在隐藏列的内容，存在，就删除掉。

 类似 http://www.foxtable.com/help/topics/2626.htm

Dim dt As Table = Tables("奖金核算窗口_Table1")
Dim hdr As Integer = dt.HeaderRows '获得表头的层数

Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表

dt.CreateSheetHeader(Sheet,0,0,True) '生成表头
Dim i As Integer = 0
For c As Integer = 0 To dt.Cols.Count - 1
    If dt.cols(c).visible = True
       
        For r As Integer = 0 To dt.Rows.Count - 1
            sheet(r + hdr,i).value = dt(r,c)
        Next
        i += 1
    End If
Next

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month

'打开工作簿
Book.Save(ProjectPath & "Reports\" & y & "年" & m & "奖金汇总表.xls")
Dim Proc As New Process
Proc.File = ProjectPath & "Reports\" & y & "年" & m & "奖金汇总表.xls"
Proc.Start()