主题：如何实现后台生成报表及后台打印

使用多线程处理，比如

全局代码

Public Sub thread_sub1(ByVal obj As Object)
    functions. Execute("多线程操作", obj)
End Sub

内部函数（多线程操作）

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(args(0))
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
'App.Visible = True
'Ws.PrintPreview
ws.printout
App.Quit

调用代码

Dim nthread As New System.Threading.Thread(AddressOf thread_sub1)
nthread.start("d:\test.xls")