主题：麻烦帮个忙

Dim Names() As String
Names = New String() {"2011学生成绩及格表","2011学生成绩统计表"}
For Each Name As String In Names
    With Tables("表A")
        .Select(0 ,0 ,.Rows.Count - 1, .Cols.Count - 1)
    End With
    Dim Book As New XLS.Book(ProjectPath & "Attachments\" & Name & ".xls") '打开模板
    Book.Build() '生成细节区
    Book.Save("D:\My Documents\报表\"& Name & ".xls") '保存工作簿
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("D:\My Documents\报表\"& Name & ".xls")
    Dim Wd As MSExcel.Window = Wb.Windows(1)    '表示当前工作簿窗口
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Wd.DisplayZeros = False                 '不显示0值
    App.Visible = True
Next

模板设计不规范（看帮助）

同一问题不要重复发贴

应该可以改成直接打印，帮助有

楼主的项目与《成绩排名》 类似，可以拿来就用省时省力

一键打印多个报表

Dim Names() As String = {"结果分析表","林种统计表","面积统计表","秋季验收表","补助测算表","坡度统计表","权属统计表","设计汇总表","设计统计表","投资测报表","预算汇总表","植被统计表","验收汇总表","二期补助表"}
For Each Name As String In Names
    With Tables("分组统计")
        .Select(0 ,0, .Rows.Count - 1, .Cols.Count - 1)
    End With
    Dim Book As New XLS.Book(ProjectPath & "Attachments\" & Name & ".xls") '打开模板
    Book.Build() '生成细节区
    Book.Save(ProjectPath & "Reports\"& Name & ".xls") '保存工作簿
    Dim Proc As New Process '打开工作簿
    Proc.File =ProjectPath & "Reports\"& Name & ".xls"
    Proc.Verb = "Print" '指定动作
    Proc.Start()
Next

在窗口中加入复选框，选中则直接打印，不选中则预览

一键打印/预览多个报表

Dim Names() As String = {"结果分析表","林种统计表","面积统计表","秋季验收表","补助测算表","坡度统计表","权属统计表","设计汇总表","设计统计表","投资测报表","预算汇总表","植被统计表","验收汇总表","二期补助表"}
For Each Name As String In Names
    With Tables("分组统计")
        .Select(0 ,0, .Rows.Count - 1, .Cols.Count - 1)
    End With
    Dim Book As New XLS.Book(ProjectPath & "Attachments\" & Name & ".xls") '打开模板
    Book.Build() '生成细节区
    Book.Save(ProjectPath & "Reports\"& Name & ".xls") '保存工作簿
    Dim Proc As New Process '打开工作簿
    Proc.File =ProjectPath & "Reports\"& Name & ".xls"
    If e.Form.Controls("CheckBox5").Checked = True Then
        Proc.Verb = "Print" '指定动作
    End If
    Proc.Start()
Next