Foxtable(狐表)用户栏目专家坐堂 → excel打印问题


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

主题:excel打印问题

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


加好友 发短信
等级:狐精 帖子:3358 积分:24758 威望:0 精华:0 注册:2012/3/26 21:47:00
excel打印问题  发帖心情 Post By:2016/10/8 16:39:00 [只看该作者]

为什么生成了打印报表 关闭的时候总是提示是否保存?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107744 积分:548059 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/8 16:49:00 [只看该作者]

生成报表的时候是不是用代码改变了报表内容,增加使用了公式什么的

 回到顶部
帅哥哟,离线,有人找我吗?
rjh4078
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3358 积分:24758 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2016/10/8 17:12:00 [只看该作者]

 是的 将报表进行了加密和组合

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107744 积分:548059 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/8 17:31:00 [只看该作者]

贴出完整代码看看

 回到顶部
帅哥哟,离线,有人找我吗?
rjh4078
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3358 积分:24758 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2016/10/14 13:52:00 [只看该作者]

  Dim fl As String = ProjectPath & "Reports\" & djna & ".xls"
        Book.Build() '生成细节区
        Book.Save(fl)
        Dim App As New MSExcel.Application
        App.Visible = True
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
        Ws.Protect(Password:="9988ddd")
 

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107744 积分:548059 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/14 14:25:00 [只看该作者]

Dim fl As String = ProjectPath & "Reports\" & djna & ".xls"
        Book.Build() '生成细节区
        Book.Save(fl)
        Dim App As New MSExcel.Application
        App.Visible = True
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
        Ws.Protect(Password:="9988ddd")
Wb.Save
App.Quit

 回到顶部