• 习近平会见塞尔维亚总统武契奇 2018-09-20
  • 新款沃尔沃XC90上市 售64.38-128.58万 2018-09-19
  • 锐参考·现场 | “铁粉”为何更加支持特朗普——亲历特朗普“竞选式集会” 2018-09-19
  • 山南市民族教育工作:为腾飞插上翅膀 2018-09-19
  • 外媒称特朗普准备将中美贸易战升级:全球市场被泼冷水 2018-09-19
  • 韩国大学生为逃兵役 6个月增重30公斤 2018-09-19
  • 娄飞:32年坚守潜艇 护卫导弹腾飞 2018-09-19
  • 娄飞:32年坚守潜艇 护卫导弹腾飞 2018-09-18
  • 中国电信启动5G手机测试 2018-09-18
  • 台湾一周侃:蔡当局待台民众以冷漠 却昧着良心媚日 2018-09-18
  • 山东这几地供暖时间延长至3月20日 2018-09-07
  • 个头虽小却是“补脑神器” 2018-09-07
  • 别让“一牌难求”阻碍新能源车发展 2018-09-06
  • 临时准备金动用安排 或释放超万亿流动性 2018-09-05
  • 提升新媒体文学的精神品格 2018-09-05
  • Excel VBA 批量设置各工作表的打印页页脚 附知识点

    时间:2017-11-02   作者:snow   来源:Office之家

    应用场景

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

    知识要点

    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

    tag : 打印页   页脚
    发表评论