[已解决]想打印的时候把【excel的文件名】打印在每页的最上面？

eikok

想打印的时候把【excel的文件名】打印在每页的最上面？
求高手指点

最佳答案

月排行榜 / 总排行榜

爱疯

2016-3-2 14:55

Sub AddHeader()
    Dim str As String
    str = VBA.Split(ThisWorkbook.Name, ".")(0)
    For Each sh In ThisWorkbook.Worksheets
        sh.PageSetup.CenterHeader = str
    Next
End Sub

改下就可以了

跳转到最佳答案楼层

爱疯

http://club.excelhome.net/thread-371349-1-1.html

搜的，这个应该可以

eikok

爱疯 发表于 2016-2-26 13:10
http://club.excelhome.net/thread-371349-1-1.html

搜的，这个应该可以

Sub AddHeader() For Each sh In ThisWorkbook.Worksheets     sh.PageSetup.CenterHeader = ThisWorkbook.Name Next End Sub

这个可以（小缺憾就是把 把文件的扩展名也打印出来

爱疯

Sub AddHeader()
    Dim str As String
    str = VBA.Split(ThisWorkbook.Name, ".")(0)
    For Each sh In ThisWorkbook.Worksheets
        sh.PageSetup.CenterHeader = str
    Next
End Sub

改下就可以了

eikok

爱疯 发表于 2016-3-2 14:55
Sub AddHeader()
    Dim str As String
    str = VBA.Split(ThisWorkbook.Name, ".")(0)

多谢，要的就是这个效果