主题：打印问题求教？

有窗口A、B、C等，窗口中分别有表A、B、C等，每个表都有相应的输出EXCEL模板，我在菜单栏里建一个“打印”按钮、一个“预览”按钮，是否可以实现当前窗口是A时，就按照设置好的EXCEL模板“打印”或“预览”A表；当前窗口是B时，就按照设置好的EXCEL模板“打印”或“预览”B表；当前窗口是C时，就按照设置好的EXCEL模板“打印”或“预览”C表？

用FOXTABLE菜单中自带的打印、预览按钮，只能在表状态下有用，在窗口中不起作用，而且不能设置好的EXECL模板

在你菜单那里，执行下面代码，判断是哪个窗口，如

 

If forms.activeform Is Nothing Then
   
    msgbox("没有窗口")
   
Else
   
    Dim frm = forms.activeform
   
    msgbox(frm.name)
   
End If

谢谢版主！可以打印，但好象我设置好的相应EXCEL模板没起作用，这个该怎么整合进去？

比如原窗口中的这段“打印”按钮代码，是不是直接复制进去就行？

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

我描述有误，是在确认是当前页面后，不能在弹出的找印页面中点“确定”，而是要点“取消”，然后在弹出的EXCEL中点找印才行

 

没看懂你的意思，贴出你写的全部代码，以及你遇到的问题。

此主题相关图片如下：1542084396.png

 

就是占了菜单栏里的“打印”按钮后，会弹出上述打印界面，但不能点“确定”，而是要点“取消”，然后会出现下面的界面，再点其中的“打印”才是我想要的结果

 

 

此主题相关图片如下：1542084618(1).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

改成这样

 

If forms.activeform Is Nothing Then
    msgbox("没有窗口")
Else
    Dim frm = forms.activeform
    msgbox(frm.name)
    If frm.name = "窗口1" Then
        msgbox(2)
        '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
    End If
End If