使用VBA遍历工作表中的每个打印页面

Question

在VBA中，如何循环浏览工作簿中每个工作表的每个可打印页面并创建唯一的页脚？我想在整个工作簿中放入“页面编号”。我有多个工作表，每个工作表都有多个打印页。

Answer 1

Sub AddPageNumbersToFooters()
    Dim ws As Worksheet

    For Each ws in ThisWorkbook.Sheets
        With ws. PageSetup
            .RightFooter = "Page &P of &N"
        End With
    Next ws
End Sub