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”