设为首页收藏本站|繁體中文

Excel 技巧网

 找回密码
 注册

QQ登录

只需一步,快速开始

手机号码,快捷登录

查看: 3496|回复: 4

[Excel VBA] 疑难121如何设置所有工作表的已用区域为打印区域

[复制链接]
发表于 2012-9-25 12:04:48 | 显示全部楼层 |阅读模式
  • 署名作者: omnw
  • 版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
  • 本文来自:
  • 引用作品:
  • 适用版本: 2010 2007 2003以前版本 
  • 语言环境: 简体中文
  • 学习方法: 掌握Excel技巧的关键是动手操作 | 下载 ≠ 知识


  • 免费注册成为本站会员,享用更多功能,结识更多Office办公高手!

    您需要 登录 才可以下载或查看,没有帐号?注册

    x

    疑难121如何设置所有工作表的已用区域为打印区域.jpg
    1. Sub 批量重设打印区域()
    2.   Dim sht As Worksheet
    3.   For Each sht In Worksheets  '遍历所有表
    4.     If Not IsEmpty(sht.UsedRange) Then  '如果不是空表
    5.       sht.PageSetup.PrintArea = sht.UsedRange.Address  '将已用区域地址赋予打印区域
    6.     Else      '否则
    7.       sht.PageSetup.PrintArea = ""  '清除原有打印设置
    8.     End If
    9.   Next
    10. End Sub
    复制代码
    发表于 2012-9-26 08:55:59 | 显示全部楼层
    学习
    回复 支持 反对

    使用道具 举报

    发表于 2014-1-18 08:49:18 | 显示全部楼层
    感谢分享
    回复

    使用道具 举报

    发表于 2015-3-3 17:28:14 | 显示全部楼层
    学习学习
    回复

    使用道具 举报

    发表于 2015-6-8 09:01:02 | 显示全部楼层

    柯桥中国轻纺城专业面料代购

    柯桥中国轻纺城专业面料代购,愿为广大的贸易公司和服装公司寻找样布,代购面料。保证数量和质量,省下车费和住宿的钱或许可以得到你想要的,你省心我实惠,一举两得,有意者联系周女士    0575-84091361 ;152- 5755-9957。
    回复 支持 反对

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    Excel技巧网的会员探讨问题仅代表其个人意见,与网站的立场无关。任何违反国家和地方相关法律法规的言论,本站有义务协助政府相关部门追究发言者的责任!
    本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者,本站之外任何单位或个人未经允许,不得将其用于商业用途。
    若非原文作者,任何形式的非商业性转载必须获得Excel技巧网或作者允许,并注明作者和出处。
    会员发表的帖子如涉及版权纠纷,须自行负责。详情请参考注册时的网站服务条款。
    本站特聘法律顾问:沈学律师

    Archiver|手机版|Excel技巧网 ( 闽ICP备08107682号-2 ) | 闽公网安备 35020302032608号  

    GMT+8, 2019-9-17 01:02

    Powered by Discuz! X3.4

    © 2001-2017 Comsenz Inc.

    快速回复 返回顶部 返回列表