我在窗口设计了一个打印按键，要求单击后打印报表1和报表2，怎么无法打印呢？麻烦帮我解决下。有附件。

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

点击浏览该文件:管理项目1.rar

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
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
    Ws.PrintPreview
    App.Quit
Next

成绩排名和这个有关系吗？