此主题相关图片如下:1542084396.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2018-11/201811131246636240.png)
就是占了菜单栏里的“打印”按钮后,会弹出上述打印界面,但不能点“确定”,而是要点“取消”,然后会出现下面的界面,再点其中的“打印”才是我想要的结果
此主题相关图片如下:1542084618(1).png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2018-11/2018111312493940540.png)
我想要的是:点“打印”,然后直接出现第2张图中的打印界面
“打印”按钮click事件代码如下:
If forms.activeform Is Nothing Then
msgbox("没有窗口")
Else
Dim frm = forms.activeform
msgbox(frm.name)
End If
If CurrentTable IsNot Nothing Then
CurrentTable.Print(False, True)
End If
Dim Book As New XLS.Book(ProjectPath & "Attachments\报名登记.xls")
Dim fl As String = ProjectPath & "360云盘\鉴定文件\报名登记表.xls"
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
Ws.PrintPreview
App.Quit