Excel VBA 批量设置各工作表的打印页页脚 附知识点

应用场景

批量设置工作薄中各工作表的打印页页脚

知识要点

1：PageSetup 对象  代表页面设置说明

2：PageSetup.LeftFooter 属性  返回或设置工作簿或节的左页脚上

3：PageSetup.RightFooter 属性  返回或设置页面右边缘与页脚

Sub 批量设置页脚()

    Dim Sht As Object

    For Each Sht In Sheets

        If Sht.Name <> "总表" Then '如果不是总表

            With Sht.PageSetup     '页面设置

                .LeftFooter = "&D" '左边显示日期

                .RightFooter = "第&P页 总&N页" '右边显示页数

            End With

        End If

    Next

End Sub