如何用vba获取或设置工作表的打印区域？ |
您所在的位置：网站首页 › excel工作表的打印设置 › 如何用vba获取或设置工作表的打印区域？ |
|
如何用vba获取或设置工作表的打印区域？
2019年1月9日
作者：水星Excel
6,212 次浏览
暂无评论
要用vba获取或设置工作表的打印区域，需要用到PageSetup对象。 PageSetup对象可以通过工作表对象Worksheet的PageSetup属性获得。 要设置或获取工作表的打印区域，可以使用PageSetup对象的PrintArea属性。 如果设置PageSetup对象的PrintArea属性为False或者””，则表示打印整个工作表。 以下vba代码演示了如何获取、设置工作表的打印区域： Sub QQ1722187970() Dim oWB As Workbook Set oWB = Excel.ThisWorkbook Dim oWK As Worksheet Dim oRng As Range For Each oWK In oWB.Worksheets With oWK With .PageSetup sArea = .PrintArea If Len(sArea) Then Set oRng = Excel.Application.Evaluate(sArea) MsgBox "当前的打印区域为" & oRng.Address(True, True, xlA1, True) Else MsgBox "你设置了打印整个工作表" .PrintArea = oWK.Range("a1").CurrentRegion.Address End If End With End With Next End Sub 其它相关文章推荐：如何在vba中将单元格的文本地址转换为range对象？如何在vba中使用excel的查找替换功能？如何用vba创建工作表目录以及返回目录超链接？如何用vba返回多个单元格区域的联合区域？如何用vba切换工作表的视图？如何用vba将excel工作簿、工作表、单元格区域另存为html网页文件？ 分类 : EXCEL VBA , VBA 标签 : PrintArea , 打印区域 , 页面布局声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。 |
今日新闻 |
推荐新闻 |
| CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |