用EXCEL模板--打印-报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用EXCEL模板--打印-报错

共有3620人关注过本帖树形打印复制链接主题：用EXCEL模板--打印-报错

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

用EXCEL模板--打印-报错 发帖心情

Post By：2021/10/27 12:23:00 [显示全部帖子]

用EXCEL模板--打印-报错：

代码：

Dim Book As New XLS.Book(ProjectPath & "Attachments\订单表.xlsx")

Dim fl As String = ProjectPath & "Reports\订单表.xlsx"

Book.Build() '生成

Book.Sheets(0).Rows.RemoveAt(0)

Book.Save(fl) '保存

Dim Proc As New Process '打开

Proc.File = fl

Proc.Start()

异常提示：

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2021.5.29.1

错误所在事件：窗口,订单,Button3,Click

详细错误信息：

索引超出范围。必须为非负值并小于集合大小。

参数名: index

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2021/10/27 13:59:00 [显示全部帖子]

问题一：我改用WORD模板设计，执行下面代码，不执行，是什么原因，如何改，谢谢？

Dim Book As New XLS.Book(ProjectPath & "Attachments\订单表.docx")

Dim fl As String = ProjectPath & "Reports\订单表.docx"

Book.Build() '生成

Book.Sheets(0).Rows.RemoveAt(0)

Book.Save(fl) '保存

Dim Proc As New Process '打开

Proc.File = fl

Proc.Start()

问题二：如何用WORD模板批量打印，打印可以看到效果？比如有50份要打印，要怎么设计？

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2021/10/27 15:10:00 [显示全部帖子]

问题一：老师，用下面代码，关联表，明细表只5行数据，数据非常小，打开花30秒，有没有办法改进？

Dim tm As String = ProjectPath & "Attachments\订单表.docx"

Dim fl As String = ProjectPath & "Reports\订单表.docx"

Dim wrt As New WordReport(Tables("订单表"),tm,fl) '

wrt.Build() '

wrt.Show() '

问题二：按帮助，在“订单表”的选中，逻辑型，选中，单击不执行是什么原因？

'再例如根据已经勾选的行生成报表Word:

Dim rs As List(of Row) = Tables("订单表").GetCheckedRows

If rs.Count > 0 Then

Dim tm As String = ProjectPath & "Attachments\订单表.docx" '

Dim fl As String = ProjectPath & "Reports\订单表.docx" '

Dim wrt As New WordReport(Tables("订单表"),tm,fl) '定义一个WordReport

For Each r As Row In rs '逐行生成报表

wrt.BuildOne(r)

wrt.Show() '显示报表

End If

下一主题 >> << 上一主题

主题：用EXCEL模板--打印-报错