主题：麻烦帮个忙

我在窗口设计了一个打印按键，要求单击后打印报表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

建议参照：X:\foxtable\Trial\CaseStudy《成绩排名》

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

太麻烦了啊。打开后要一个一个点击打印。然后一个一个关闭，囧，不能像例子里面的打印那样吗？直街就去打印了。

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