主题：麻烦帮个忙

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

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

将代码中的
ws.PrintPreview
改为：
ws.PrintOut

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 Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Ws.PrintOut
    App.Quit
Next

 

Dim Names() As String
Names = New String() {"2011学生成绩及格表","2011学生成绩统计表"}
For Each Name As String In Names
    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 Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Ws.PrintOut
    App.Quit
Next

你是不是设置了打印范围？

 

http://help.foxtable.com/topics/0201.htm

 

20楼的代码，除非你选定了左右行，或者在报表模板中设置了打印所有行，否则不会打印所有行的。

搞不定的话，你就做个例子传上来，我们帮你检查一下。