以文本方式查看主题

-  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=118124)

--  作者:liguichuan
--  发布时间: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,不支持。


--  作者:liguichuan
--  发布时间:2018/4/25 15:41:00
--  
果然,把Book.SaveToPDF(fl & ".pdf")这句代码注释掉就可以了。