以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 生成PDF报表时出错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101445)
--  作者：2900819580
--  发布时间：2017/5/31 16:52:00
--  [求助] 生成PDF报表时出错
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2017.4.22.1
错误所在事件：窗口,备品单制作,But导出PDF,Click
详细错误信息：
值不在预期的范围内。


代码如下：Office 版本是2013
e.Form.Controls("Chk备品").Checked = True
Dim tb As Table = Tables(e.Form.Name & "_Table1")
Dim dt As DataTable = tb.DataTable
Dim r As Row = tb.Current

Dim Book As New XLS.Book(ProjectPath & "Attachments\\配件表.xls") \'打开模板
Dim fl As String =  "d:\\配件表\\" & r("排产单号") & "_配件表.xls"
Dim pdf As String =  "d:\\配件表\\" & r("排产单号") & "_配件表.pdf"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(1,7).Value = "日期:" & Date.Today
Sheet(0,1).Value = r("排产单号") & " 配件表"
Sheet(3,0).Value =  "<" & e.Form.Name & "_Table1>"
Sheet(4,2).Value =  "\'<" & e.Form.Name & "_Table1>"
Book.Build() \'生成报表
Book.Save(fl)

Book.SaveToPDF(pdf) \'保存为PDF文件
Dim Proc As New Process \'打开PDF文件
Proc.File = fl
Proc.Start()
[此贴子已经被作者于2017/5/31 16:52:26编辑过]
--  作者：有点色
--  发布时间：2017/5/31 17:09:00
--  

试试......

 

e.Form.Controls("Chk备品").Checked = True
Dim tb As Table = Tables(e.Form.Name & "_Table1")
Dim dt As DataTable = tb.DataTable
Dim r As Row = tb.Current


Dim Book As New XLS.Book(ProjectPath & "Attachments\\配件表.xls") \'打开模板
Dim fl As String =  "d:\\配件表\\" & r("排产单号") & "_配件表.xls"
Dim pdf As String =  "d:\\配件表\\" & r("排产单号") & "_配件表.pdf"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(1,7).Value = "日期:" & Date.Today
Sheet(0,1).Value = r("排产单号") & " 配件表"
Sheet(3,0).Value =  "<" & e.Form.Name & "_Table1>"
Sheet(4,2).Value =  "\'<" & e.Form.Name & "_Table1>"
Book.Build() \'生成报表
\'Book.Save(fl)


Book.SaveToPDF(pdf) \'保存为PDF文件
Dim Proc As New Process \'打开PDF文件
Proc.File = pdf
Proc.Start()
--  作者：2900819580
--  发布时间：2017/5/31 17:14:00
--  
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2017.4.22.1
错误所在事件：窗口,备品单制作,But导出PDF1,Click
详细错误信息：
值不在预期的范围内。


问题依然！！！
--  作者：有点色
--  发布时间：2017/5/31 17:32:00
--  
 你安装的肯定不是 MS Office 2013，应该是 2007 以下的版本吧？你试试重新安装office