- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 根撱模版生成EXCEL报表出问题了 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=118124)
-- 发布时间：2018/4/25 15:14:00
-- 根撱模版生成EXCEL报表出问题了
有一个按钮，代码如下（本机WIN10系统）：
Dim code As String = Tables("出库单").Current("单据编号")
Dim pm As String = Tables("出库单").Current("发料项目")
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code128
Bar.Code = code
Bar.BarRatio = 0.4
Bar.BarHeight = 15
bar.SaveImage(ProjectPath & "Images\\BarCode.wmf",600)
\'生成Excel报表：
Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单模版.xls")
Dim fl As String = ProjectPath & "Reports\\" & pm.Split("]")(0).split("[")(1) & "_" & code & "_出库签收单"
Book.Build() \'生成细节区
Book.Save(fl & ".xls")
Book.SaveToPDF(fl & ".pdf")
Dim Proc As New Process \'打开PDF文件
Proc.File = fl & ".xls"
If e.Form.Controls("CheckBox1").checked Then
Proc.Verb = "Printto" \'指定动作
Proc.Start()
Tables("出库单").Current("打印情况") = "已打印"
Else
Proc.Start()
End If
此主题相关图片如下：代码.jpg
在开发模式下一切正常，发布后，本机点了代码所在的按钮没有反应。把文件拷给其它人试用，WIN7的错误代码如下：
此主题相关图片如下：值不在预期范围内.png
WIN10系统（非本机）的错误如下：
此主题相关图片如下：win10出错.png
请教问题如何排除？
-- 发布时间：2018/4/25 15:20:00
--
如果要另存为pdf，对ms office有要求。
如果是 ms office 2010 或以上的版本，不会报错；
如果是 ms office 2007，你需要安装 Save As PDF and XPS 组件才行（上网下载）
如果是 ms office 2003，不支持。
-- 发布时间：2018/4/25 15:41:00
--
果然，把Book.SaveToPDF(fl & ".pdf")这句代码注释掉就可以了。