- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 范本中 ProjectPath 在哪里设定? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=42192)
-- 发布时间：2013/11/6 9:39:00
-- 范本中 ProjectPath 在哪里设定?
范本中(打印出库单) ProjectPath 在哪里设定?这个是什么函数?
-- 发布时间：2013/11/6 9:40: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)
App.Visible = True
Ws.PrintPreview
App.Quit
-- 发布时间：2013/11/6 9:41:00
--
参考：
http://www.foxtable.com/help/topics/1439.htm
另，下面这段用不着的了：
If Functions.Execute("net20sp1") = False Then
Return
End If
-- 发布时间：2013/11/6 9:42:00
--
已搞定了
