如何用VBA设计Excel页眉？宏录制与代码效果不符求助

问题说明 #

尝试通过VBA为Excel设置页眉，期望左侧、中间、右侧分别显示不同内容（例如左显示日期、中显示工作表名、右显示页码），但多次尝试效果不符合预期；录制宏实现相同操作后，清空页眉再运行宏，结果和手动操作不一致。尝试的代码如下：

Application.PrintCommunication = False
With ActiveSheet.PageSetup
    .LeftHeader = "Datum: &D" 
    .CenterHeader = "Filnamn: &V" 
    .RightHeader = "Sida: &P" 
End With
Application.PrintCommunication = True

问题排查与修复 #

1. 特殊格式符错误 #

代码中使用的&V并非Excel页眉的合法特殊代码，导致中间页眉无法正确显示工作表名称。正确的常用特殊代码对应：

• &D：系统日期
• &A：当前工作表名称
• &F：工作簿名称
• &P：当前页码
• &N：总页数

2. PrintCommunication设置的兼容性问题 #

Application.PrintCommunication = False用于加速PageSetup设置，但部分Excel版本或打印机驱动下，可能导致设置无法立即生效。可以尝试移除该设置，或添加预览操作强制刷新效果。

3. 录制宏的冗余代码干扰 #

录制宏时Excel会自动生成大量打印机相关的冗余配置，清空页眉后运行宏，因缺少原有上下文导致效果偏差。

修正后的代码 #

基础测试版（固定文本） #

先验证基础设置是否生效：

With ActiveSheet.PageSetup
    .LeftHeader = "AAA"
    .CenterHeader = "BBB"
    .RightHeader = "CCC"
End With

动态内容版（符合需求） #

替换为需要的动态页眉内容：

With ActiveSheet.PageSetup
    .LeftHeader = "日期: &D"
    .CenterHeader = "工作表名: &A"
    .RightHeader = "页码: &P/&N"
End With

保留PrintCommunication的兼容版 #

如果需要保留加速设置，可添加预览操作确保效果：

Application.PrintCommunication = False
With ActiveSheet.PageSetup
    .LeftHeader = "日期: &D"
    .CenterHeader = "工作表名: &A"
    .RightHeader = "页码: &P/&N"
End With
Application.PrintCommunication = True
' 强制刷新预览查看最终效果
ActiveSheet.PrintPreview

额外注意事项 #

• 确保目标工作表未处于保护状态，否则无法修改页眉设置
• 若仍存在问题，可检查打印机设置是否正常，部分打印机驱动会影响PageSetup的生效

内容的提问来源于stack exchange，提问作者CamillaT