Excel 如何从总页码中排除工作表?

Excel 如何从总页码中排除工作表?,excel,Excel,我想在打印电子表格时将页码添加到电子表格中,但我不希望在计算和[Pages]总计时计算某些纸张。工作簿有4页,需要打印3页,但我只需要前两页的页码。如果没有VBA,这是否可行?尝试隐藏不想打印的工作表 如果在“打印”对话框中选择“打印整个工作簿”,它将统计工作簿中可见的所有页面。我制作了一个简单的工作簿,将页数放在页眉中,然后比较隐藏其中一页前后打印预览中的页数 如果出于某种原因不想隐藏工作表,即使只是为了打印作业,也可以在选择要打印的工作表后选择“打印活动工作表”。(标准Ctrl/Shift选

我想在打印电子表格时将页码添加到电子表格中,但我不希望在计算
和[Pages]
总计时计算某些纸张。工作簿有4页,需要打印3页,但我只需要前两页的页码。如果没有VBA,这是否可行?

尝试隐藏不想打印的工作表

如果在“打印”对话框中选择“打印整个工作簿”,它将统计工作簿中可见的所有页面。我制作了一个简单的工作簿,将页数放在页眉中,然后比较隐藏其中一页前后打印预览中的页数

如果出于某种原因不想隐藏工作表,即使只是为了打印作业,也可以在选择要打印的工作表后选择“打印活动工作表”。(标准Ctrl/Shift选择规则适用于工作表选项卡。)

如果您试图排除封面之类的内容,那么如果没有VBA,我认为这是不可能的。要实现这一点,您可以利用
Workbook\u BeforePrint
功能

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim ws As Worksheet
    Dim pages As Integer

    pages = 0        
    ' Count the number of pages visible on each desired sheet
    For Each ws In ActiveWorkbook.Sheets
        If ws Then 'Modify to fit your criteria
            pages = pages + (ws.HPageBreaks.Count + 1) * (ws.VPageBreaks.Count + 1)
        End If
    Next

    ' Update the header or footer with the desired values.
    For Each ws In ActiveWorkbook.Sheets
        If ws Then 'Modify to fit your criteria
            ws.PageSetup.LeftHeader = "3"
        End If
    Next
End Sub

这不是我想要的。我想打印第1-3页,但我希望&[Pages]只显示第1页和第2页的页数。不幸的是,我认为您需要使用VBA。我添加了一些代码来帮助您入门。感谢您的帮助,我想我会将最后一条指令更改为
ws.PageSetup.LeftHeader=“&[Page]of 3”