- 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)
-- 发布时间：2020/9/25 10:23:00
-- 打印按钮加载提示是如何实现的
老师：华海仓库里库存商品下的EXCEL打印下的打印按钮，打印时弹出的"准备预览..."提示是如何实现的，是哪几名代码实现的？请老师指点。
代码我已经放在记事本附件里，加载效果见下图：
此主题相关图片如下：123.png
打印按钮代码附件：
-- 发布时间：2020/9/25 10:34:00
--
这个准备预览提示默认就有的，调用打印预览功能自动就会弹出
-- 发布时间：2020/9/25 10:45:00
--
是针对专业报表或窗口打印的吗？word或EXCEL报表行吗？
-- 发布时间：2020/9/25 10:47:00
--
针对专业报表或窗口打印的。word或EXCEL报表有自己的预览提示
-- 发布时间：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
-- 发布时间：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编辑过]
-- 发布时间：2020/9/25 11:18:00
--
因为WORD和EXCEL报表在加载过程中有点慢，我是指能不能在加载途中有所提示？
-- 发布时间：2020/9/25 11:23:00
--
没有办法