老师,我不是指这个,我是指用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() '显示报表