• 我国拟推行建筑工人实名制 2018-05-27
  • “君怡娱乐网上赌球”明升88代理重磅 | 网络餐饮新规发布:外卖商户应有实体店 明年元… 2018-05-27
  • 花茶以及花茶的冲泡讲究 2018-05-27
  • “发现池州之美”——凤观池州全媒体行5月10日启动 2018-05-26
  • 《手机2》将拍 崔永元重提旧怨:冯小刚是渣子 2018-05-26
  • 自贡贡井:122名村(社区)党支部书记“充电”全覆盖 2018-05-25
  • 辽宁长海县:海岛垃圾将实现自产自消 2018-05-25
  • 本港台网址葡京六合彩图库 2018-05-25
  • 你还在用微信聊天,聪明的人早已在用微信赚钱!—海口论坛 2018-05-25
  • 西安今晚开始天气转阴 全省这周阴雨天气为主|阴雨|天气-要闻 2018-05-24
  • 日媒称“森友丑闻”持续发酵 打乱安倍长期执政设想 2018-05-24
  • 向世界说明前郭尔罗斯城市精品推介会在京举行 2018-05-24
  • 导演江平:增强文化自信 中国电影才会更好看 2018-05-24
  • 4月增持回购近262亿元 产业资本吹响抄底A股号角 2018-05-24
  • 郜林强势爆发让球迷欣喜 未来他会继续在恒大挑起大梁 2018-05-23
  • 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 : 打印页   页脚
    发表评论