VBA打印输出激活打印的工作表

Question

我对多个工作表使用以下过程：

Sub PrintTask(ByVal wsName As String, ByVal pageCount As Long)
    With ThisWorkbook.Worksheets(wsName)
        .PrintOut From:=1, To:=pageCount, Copies:=1, Preview:=False
        .DisplayPageBreaks = False
    End With
End Sub

它激活每个工作表，而我想留在工作表上，我一直在运行宏，而不是在打印完成后返回它。它甚至可能吗？

Answer 1

在致电您的程序之前，请确保ScreenUpdating设置为False，并且您不会注意到 ^* ＆＃34;激活＆＃34;另一张表：

Sub Test
    Application.ScreenUpdating = False
    PrintTask "Sheet1", 3
    Application.ScreenUpdating = True
End Sub      

（ ^* 除非其他工作表在其Worksheet_Activate事件处理程序中有某些内容。）