[已解决]请教个关于页眉页脚的问题

fuxuanbo

各位老师、学长好，请用VBA可以设置页眉页脚吗{:011:}谢谢！

最佳答案

月排行榜 / 总排行榜

老糊涂

2011-12-18 21:13

Private Sub CommandButton1_Click()
Dim sht As Worksheet
For Each sht In Sheets                         '全部工作表
    sht.PageSetup.LeftHeader = "左侧页眉"      '在工作表右侧页脚添加文字
    sht.PageSetup.CenterHeader = "&20&F"       '在工作表中间页眉添加文字为20号的文件名称
    sht.PageSetup.RightHeader = "右侧页眉"     '在工作表右侧页眉添加文字
    sht.PageSetup.LeftFooter = "左侧页脚"      '在工作表左侧页脚添加文字
    sht.PageSetup.CenterFooter = "中间页脚"    '在工作表中间页脚添加文字
    sht.PageSetup.RightFooter = "右侧页脚"     '在工作表右侧页脚添加文字
Next sht
MsgBox "所有表的页眉页脚都添加了文字"
End Sub

跳转到最佳答案楼层

tony3

可以。

fuxuanbo

tony3 发表于 2011-12-18 20:51
可以。

谢谢，非常感谢{:011:}

老糊涂

Private Sub CommandButton1_Click()
Dim sht As Worksheet
For Each sht In Sheets                         '全部工作表
    sht.PageSetup.LeftHeader = "左侧页眉"      '在工作表右侧页脚添加文字
    sht.PageSetup.CenterHeader = "&20&F"       '在工作表中间页眉添加文字为20号的文件名称
    sht.PageSetup.RightHeader = "右侧页眉"     '在工作表右侧页眉添加文字
    sht.PageSetup.LeftFooter = "左侧页脚"      '在工作表左侧页脚添加文字
    sht.PageSetup.CenterFooter = "中间页脚"    '在工作表中间页脚添加文字
    sht.PageSetup.RightFooter = "右侧页脚"     '在工作表右侧页脚添加文字
Next sht
MsgBox "所有表的页眉页脚都添加了文字"
End Sub