范本中 ProjectPath 在哪里设定? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 范本中 ProjectPath 在哪里设定?

共有4456人关注过本帖树形打印复制链接主题：范本中 ProjectPath 在哪里设定?

gsm_guan

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：42 积分：375 威望：0 精华：0 注册：2013/10/24 10:39:00

范本中 ProjectPath 在哪里设定? 发帖心情

Post By：2013/11/6 9:39:00 [只看该作者]

范本中(打印出库单) ProjectPath 在哪里设定?这个是什么函数?

gsm_guan

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：42 积分：375 威望：0 精华：0 注册：2013/10/24 10:39:00

Post By：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