Question

Excel 如何用VBA设置页眉的字体

Answer 1

Sub test()
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = "" '页眉左设置为：空
.CenterHeader = "&F" '页眉中设置为：文件名
.RightHeader = "" '页眉右设置为：空
.LeftFooter = "&B 机密 &B" '页脚左设置为：加粗的 机密两个字
.CenterFooter = "&D" '页脚中设置为：当前日期
.RightFooter = " 第 &P 页" '页脚右设置为：页码
End With
Application.PrintCommunication = True
End Sub