Foxtable(狐表)用户栏目专家坐堂 → excel报表问题---提示较早版本 导致 打印完毕 需要保存!


  共有4750人关注过本帖树形打印复制链接

主题:excel报表问题---提示较早版本 导致 打印完毕 需要保存!

帅哥哟,离线,有人找我吗?
ljh29206
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1368 积分:12189 威望:0 精华:0 注册:2012/3/5 11:32:00
excel报表问题---提示较早版本 导致 打印完毕 需要保存!  发帖心情 Post By:2014/1/25 17:20:00 [显示全部帖子]

Dim d As Date = #1/1/2014#
Dim t As Table = Tables("供应商资料")
t.Sort ="到货时间"
For i As Integer = 0 To 3
Tables("供应商资料").Position =i
Dim value As Integer
value = Tables("供应商资料.部品明细.纳入计划列表").Compute("sum(数量)","日期 = #" & d  & "#")
If value > 0 Then
Dim Book As New XLS.Book(ProjectPath & "Attachments\包装确认.xls")
Dim fl As String = ProjectPath & "Reports\包装确认.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
'sheet(5,6).Value = value
Book.Build()

Book.Save(fl)

Dim Proc As New Process

Proc.File = fl
Proc.Verb = "Print"
Proc.Start()
End If
Next

 

 

代码如上,     执行到后边的时候  文本 本来已经保存好了  但是 关闭的时候却提示需要  “保存”!!!!!

循环打印,老弹出对话框 烦死人了。,。。

 

“该文件 ,就算自己自行打开 也会提示

在打开上次由EXCEL早期版本保存的文件时会重新计算公式

 

其他的没问题  ,请会的朋友指导下!!!


 回到顶部