Office Excel、WPS Excel 批量打印页码不连续工作表

Sub PrintAll()
    Dim s As Worksheet
    For Each s In ActiveWorkbook.Worksheets
        s.PrintOut
    Next
End Sub

1.Office Excel 选择开发工具->选中项目->添加模块 添加如上代码。

2.WPS Excel 先安装 wps.vba.exe , 然后 选择开发工具->VB宏->选中项目->添加模块 添加如上代码。