• 贵州安顺:扶贫工作不作为 7名干部被追责 2018-07-16
  • “微信红包带病毒”是假消息 2018-07-16
  • 深圳现无人驾驶公交车? 涉事企业:车上有司机监控 2018-07-16
  • 央行连续八日暂停公开市场操作 2018-07-15
  • 辽宁省深化国家监察体制改革试点工作全面推进 2018-07-15
  • 农业部:到2020年中国新型职业农民将达2000万人 2018-07-15
  • 中高协发布2018年度高尔夫球运动员注册办法 2018-07-15
  • 阿里巴巴豪掷224亿港元 购高鑫零售36.16%股权 2018-07-14
  • 郭树清出任央行党委书记 央行现“双首长”制 2018-07-14
  • 湖南省社科院推出2017年度“十大创新成果”——新华网——湖南 2018-07-14
  • 隋晓会:顺应媒体融合态势 合力讲好中国故事 2018-07-14
  • AWE 2018 夏普携多款空气净化器产品亮相 2018-07-13
  • 潘之琳“演技小花”初长成 2018-07-13
  • 酷骑单车拖欠数亿资金未归还 中消协谴责其挪用押金 2018-07-13
  • 揭网络传销迷惑大众伎俩:消费返利、防病养老…… 2018-07-13
  • 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 : 打印页   页脚
    发表评论