Foxtable(狐表)用户栏目专家坐堂 → excel模板报表生成后被窗口遮住


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

主题:excel模板报表生成后被窗口遮住

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


加好友 发短信
等级:一尾狐 帖子:409 积分:3659 威望:0 精华:0 注册:2017/4/8 8:59:00
excel模板报表生成后被窗口遮住  发帖心情 Post By:2017/8/9 14:25:00 [显示全部帖子]

请问老师窗口调用excel模板报表生成后被窗口遮住,是什么原因

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


加好友 发短信
等级:一尾狐 帖子:409 积分:3659 威望:0 精华:0 注册:2017/4/8 8:59:00
  发帖心情 Post By:2017/8/9 14:48:00 [显示全部帖子]

发布前是正常的,为什么发布后会出现挡住呢

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


加好友 发短信
等级:一尾狐 帖子:409 积分:3659 威望:0 精华:0 注册:2017/4/8 8:59:00
  发帖心情 Post By:2017/8/9 15:24:00 [显示全部帖子]

Dim str As String =(" ")
        If InputValue(str, "提示", "请输入要打印的月份(如:1或2纯数字)") Then
            Dim ary() As String = str.split(",")
            If ary.length = 1 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,11).Value = "<单位 = '单位A ' and 月份 = '" & ary(0) & "'>"  '写入打印条件
                Book.Build() '生成报表
                Book.Save(fl)
                Dim Proc As New Process
                Proc.File = fl
                Proc.Start()
            End If
        End If

   开发端用目录树窗口调用此代码正常显示报表,发布后报表不在前端显示,最小化程序后才能看到,代码如何加呢

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


加好友 发短信
等级:一尾狐 帖子:409 积分:3659 威望:0 精华:0 注册:2017/4/8 8:59:00
  发帖心情 Post By:2017/8/10 8:33:00 [显示全部帖子]

真的很奇怪,没发布前正常,发布后报表又不在屏幕前端了

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


加好友 发短信
等级:一尾狐 帖子:409 积分:3659 威望:0 精华:0 注册:2017/4/8 8:59:00
  发帖心情 Post By:2017/8/10 12:09:00 [显示全部帖子]

Select Case e.Node.Name

Case "打印"
Dim str As String =(" ")
If InputValue(str, "提示", "请输入要打印的月份(如:1或2纯数字)") Then
    Dim ary() As String = str.split(",")
    If ary.length = 1 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,11).Value = "<单位 = '单位A ' and 月份 = '" & ary(0) & "'>"  '写入打印条件
        Book.Build() '生成报表
        Book.Save(fl)
        Dim Proc As New Process
        Proc.File = fl
        Proc.Start()
        showappwindow("测试.xls", 2)
    End If
End If
end select

以上方法目录树节点代码打印或显示用,但是发布在安装有 excel 2007系统电脑上是可以的,但是发布在excel2003 会被主窗口挡住。

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


加好友 发短信
等级:一尾狐 帖子:409 积分:3659 威望:0 精华:0 注册:2017/4/8 8:59:00
  发帖心情 Post By:2017/8/10 12:12:00 [显示全部帖子]

但是通过foxtable原始菜单报表管理-报表-excel报表-打印表又都可以正常显示,哪应该跟excel版本没关系的了,是不是以上代码问题?

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


加好友 发短信
等级:一尾狐 帖子:409 积分:3659 威望:0 精华:0 注册:2017/4/8 8:59:00
  发帖心情 Post By:2017/8/10 12:25:00 [显示全部帖子]

没问题

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


加好友 发短信
等级:一尾狐 帖子:409 积分:3659 威望:0 精华:0 注册:2017/4/8 8:59:00
  发帖心情 Post By:2017/8/10 13:04:00 [显示全部帖子]

没问题

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


加好友 发短信
等级:一尾狐 帖子:409 积分:3659 威望:0 精华:0 注册:2017/4/8 8:59:00
  发帖心情 Post By:2017/8/10 14:05:00 [显示全部帖子]

没问题。

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


加好友 发短信
等级:一尾狐 帖子:409 积分:3659 威望:0 精华:0 注册:2017/4/8 8:59:00
  发帖心情 Post By:2017/8/10 16:22:00 [显示全部帖子]

老师,问题越来越清楚了,我测试了一下,在office2007机子上用开发版或者发布的开发版都可以,就是在office2003机子上使用都出现这个问题,是不是算是BUG,或者一定要在2007以上版本上报表才会正常,之前保存PDF网上说要2010以上的。不想再修改了,直接升2010好了,找了一下都是试用的,这边有安装包吗?

 回到顶部
总数 11 1 2 下一页