以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打印按钮加载提示是如何实现的  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=154731)

--  作者:zyxhx
--  发布时间:2020/9/25 10:23:00
--  打印按钮加载提示是如何实现的
老师:华海仓库里库存商品下的EXCEL打印下的打印按钮,打印时弹出的"准备预览..."提示是如何实现的,是哪几名代码实现的?请老师指点。
代码我已经放在记事本附件里,加载效果见下图:

图片点击可在新窗口打开查看此主题相关图片如下:123.png
图片点击可在新窗口打开查看

打印按钮代码附件:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:打印按钮代码.rar




--  作者:有点蓝
--  发布时间:2020/9/25 10:34:00
--  
这个准备预览提示默认就有的,调用打印预览功能自动就会弹出
--  作者:zyxhx
--  发布时间:2020/9/25 10:45:00
--  
是针对专业报表或窗口打印的吗?word或EXCEL报表行吗?
--  作者:有点蓝
--  发布时间:2020/9/25 10:47:00
--  
针对专业报表或窗口打印的。word或EXCEL报表有自己的预览提示
--  作者:zyxhx
--  发布时间:2020/9/25 10:51:00
--  
老师指点一下,我一直没有找到word或EXCEL报表的打印提示
[此贴子已经被作者于2020/9/25 10:54:09编辑过]

--  作者:有点蓝
--  发布时间:2020/9/25 10:57:00
--  
https://zhidao.baidu.com/question/448906122.html
--  作者:zyxhx
--  发布时间:2020/9/25 11:05:00
--  
老师,我不是指这个,我是指用FOXtable中的打印按钮代码时提示,以下菜单打印代码,如何加入打印加载提示:

 Case "print2" 直接打印
        e.Form.Strips("主菜单").Items("printtts").BaseControl.HideDropDown \'退出主菜单下的项目菜单"printtts"
        Dim tm As String  = ProjectPath & "Attachments\\验方处方.docx" \'指定模板文件
        Dim fl As String = ProjectPath & "Reports\\验方处方.docx" \'指定目标文件
        Dim wrt As New WordReport(Tables("验方"),tm,fl) \'定义一个WordReport
        wrt.Build() \'逐行生成报表
        wrt.print
        wrt.quit
    Case "PrintPreview2" ’打印预览
        e.Form.Strips("主菜单").Items("printtts").BaseControl.HideDropDown \'退出主菜单下的项目菜单"printtts"
        Dim tm As String  = ProjectPath & "Attachments\\验方处方.docx" \'指定模板文件
        Dim fl As String = ProjectPath & "Reports\\验方处方.docx" \'指定目标文件
        Dim wrt As New WordReport(Tables("验方"),tm,fl) \'定义一个WordReport
        wrt.Build() \'逐行生成报表
        wrt.quit
        Dim app As New MSWord.Application
        try
            Dim doc = app.Documents.Open(fl)
            App.Visible = True
            \' ShowAppWindow("验方",1)
            Doc.PrintPreview
        catch ex As exception
            msgbox(ex.message)
            app.Quit
        finally
            \'app.Quit
        End try
        
    Case "edit2" \'编辑导出
        e.Form.Strips("主菜单").Items("printtts").BaseControl.HideDropDown \'退出主菜单下的项目菜单"printtts"
        Dim tm As String  = ProjectPath & "Attachments\\验方处方.docx" \'指定模板文件
        Dim fl As String = ProjectPath & "Reports\\验方处方.docx" \'指定目标文件
        Dim wrt As New WordReport(Tables("验方"),tm,fl) \'定义一个WordReport
        wrt.Build() \'逐行生成报表
        wrt.Show() \'显示报表


--  作者:有点蓝
--  发布时间:2020/9/25 11:16:00
--  
WordReport可以使用show方法打开word后,按6楼的方法打开预览

Case "PrintPreview2"中的Doc.PrintPreview就会自动进入word的预览模式
[此贴子已经被作者于2020/9/25 11:15:58编辑过]

--  作者:zyxhx
--  发布时间:2020/9/25 11:18:00
--  
因为WORD和EXCEL报表在加载过程中有点慢,我是指能不能在加载途中有所提示?
--  作者:有点蓝
--  发布时间:2020/9/25 11:23:00
--  
没有办法