以文本方式查看主题

-  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=37978)
--  作者：良木
--  发布时间：2013/7/16 18:36:00
--  打印预览后常弹出是否保存Excel表（已解决）
我做的报表，设置了“打印预览”，和“直接打印”两个按钮，每次不管按那个都出现是否保存Excel表，太麻烦了，其实不用保存的，每次都要点一下。
“打印预览”按钮代码如下，请那位高人指点一下，谢谢了
Dim Book As New XLS.Book(ProjectPath & "Attachments\\家庭信息.xls")
Dim fl As String = ProjectPath & "Reports\\家庭信息.xls"
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
Ws.PrintPreview
App.Quit
[此贴子已经被作者于2013-7-18 13:23:55编辑过]
--  作者：有点甜
--  发布时间：2013/7/16 20:40:00
--  
没有遇到过这个问题，是不是你这个excel有什么宏或者代码之类的，打开后自动执行，修改了数据或者格式之类的？
--  作者：e-png
--  发布时间：2013/7/16 21:07:00
--  

点击一下系统目录下的：Office.reg 添加注册表即可解决了。
--  作者：良木
--  发布时间：2013/7/16 21:47:00
--  
谢谢各位的帮助，找到问题了，我给模板中插入了Now()函数，每次打开都自动更新了，要求要保存，我百度里面找到答案了，谢谢楼上的