老师，我不是指这个，我是指用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() '显示报表
加好友 
发短信
Post By：2020/9/25 10:23:00 [显示全部帖子]
此主题相关图片如下：123.png
