以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  在窗口中打印窗口表的数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59007)
--  作者：xiaohu2008
--  发布时间：2014/10/28 10:44:00
--  在窗口中打印窗口表的数据

帮我看下这段代码有什么问题，我怎么不能打印过期_库存表里面的内容？

Dim Book As New XLS.Book(ProjectPath & "Attachments\\过期模板.xls")
Dim fl As String = ProjectPath & "Reports\\过期.xls"
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
ShowAppWindow("过期_库存表",2)
Ws.PrintPreview
App.Quit
--  作者：有点甜
--  发布时间：2014/10/28 10:47:00
--  

 你运行代码有什么问题？试试这样

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\\过期模板.xls")
Dim fl As String = ProjectPath & "Reports\\过期.xls"
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
Ws.PrintPreview

 

 
--  作者：Bin
--  发布时间：2014/10/28 10:50:00
--  
一条数据也没出来?  模版条件设置问题 ,没有符合条件的数据吧

上个例子看看
--  作者：xiaohu2008
--  发布时间：2014/10/28 11:00:00
--  

我把模板里面表的名称改成窗口里面表的名称，现在可以了！