应用场景

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

知识要点

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