以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于打印EXCEL报表的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=17245)
--  作者：kevin
--  发布时间：2012/3/8 3:01:00
--  关于打印EXCEL报表的问题
狐爸：尽管看了帮助文档关于打印报表以使用一系列动作的操作方法，但想集中到一起使用，感觉还有些难度。
我想问：项目中，已经存在名为“订单表”的EXCEL模板；

1：点击按钮；打开 “订单表” 的EXCEL打印预览，不显示EXCEL程序；
2：或者 点击按钮；直接打印 “订单表” 并关闭EXCEL‘
--  作者：狐狸爸爸
--  发布时间：2012/3/8 9:15:00
--  

直接打印:

 

If Functions.Execute("net20sp1") = False Then
    Return
End If
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)
Ws.PrintOut
App.Quit

 

你可以看看：

http://www.foxtable.com/help/topics/2121.htm

 
--  作者：qixiangsheng
--  发布时间：2012/12/6 20:51:00
--  
If Functions.Execute("net20sp1") = False Then
    Return 这句话是什么意思啊  那个("net20sp1") 事怎么回事呀？？？
--  作者：lin_hailun
--  发布时间：2012/12/6 21:09:00
--  
 不必理会，拷贝下面的代码执行就可以了。