excel利用VBA设置或取消打印区域
发布时间：2023-08-03 16:21:58
如果需要用VBA代码在Excel工作表中设置打印区域，可以用下面的方法。
一、设置打印区域
方法一：
用PageSetup.PrintArea属性。代码如下：
Sub SetPrintArea()
Sheet1.PageSetup.PrintArea = "A1:F15"
End Sub
上述代码将区域A1:F15设置为打印区域。如果要同时设置多个打印区域，可以将上述代码改为：
Sub SetPrintArea()
Sheet1.PageSetup.PrintArea = "A1:F15,A20:F45"
End Sub
上述代码将区域A1:F15及A20:F45设置为打印区域，可以分两页来打印。
还可以使用变量来设置一个动态打印区域：
Sub SetPrintArea()
PrintRow = 100
Sheet1.PageSetup.PrintArea = "A1:G" & PrintRow
End Sub
通过改变变量PrintRow的值来设置不同的打印区域。
方法二：
用Names.Add方法。当在Excel中设置一个区域为打印区域后，Excel自动定义了一个名称“Print_Area"，因而可以通过定义名称的方法来设置打印区域，代码如下：
Sub SetPrintArea()
Sheet1.Names.Add "Print_Area", Sheet1.Range("B2:G12")
End Sub
设置动态打印区域：
Sub SetPrintArea()
Sheet1.Names.Add "Print_Area", Sheet1.Range("B2").Resize(12, 8)
End Sub
上述代码将B2:I13区域设置为打印区域，通过改变Resize(12, 8)的参数来调整打印区域的大小。
二、取消打印区域
将PageSetup.PrintArea属性设置为空：
Sub ClearPrintArea()
Sheet1.PageSetup.PrintArea = "" '空字符串
End Sub
或删除已定义的“Print_Area”名称：
Sub ClearPrintArea()
On Error Resume Next
Sheet1.Names("Print_Area").Delete
On Error GoTo 0
End Sub
0
投稿猜你喜欢
在word文档中我们经常会需要插入一些文本框，方便我们在不能直接录入文字的地方输入文字。我们在文本框中插入文字之后，是可以调整文本与文本框之- Excel中经常需要使用到设置高度的技巧，表格的高度具体该如何进行设置呢?下面是由小编分享的excel表格设置高度的教程，以供大家阅读和学习
- 如何设置word文档中的文本框对象的背景为纹理效果，方法如下!如下图一所示，假设存在这样的一个文本框对象，下面我们来设置它的纹理效果。 &n
- 当在excel2016表格中使用按位置合并计算数据的时候，必须保证每一个数据源区域中的数据被相同地排列。这种方法通常用于处理相同表格的合并工
- 信很多人都有在考试时做小抄的经历,特别是大学生,大多数人小抄都是在打字社让打印的人给排一下版直接打出来的,下面小编就为大家介绍用word如何
- excel窗口总在最前面该怎么设置？想让excel的窗口始终显示在最前面，不被其他窗口挡住，该怎么设置呢？今天分享利用VBA编辑器实现exc
- 问：Word中的脚注如何删除？把正文相应的符号删除，内容可以删除，但最后那个格式还在，应该怎么办？答：步骤如下：1、切换到普通视图，菜单中“
- Excel网格线是是辅助我们编辑工作表使用的。如果需要，也可以将Excel网格线打印出来。Excel网格线相关的知识点下面逐一介绍。第一：e
- 在excel2019中为折线图表添加线条可以更快速、准确地查看折点，从而让我们可以更好的进行数据分析和对比，给excel2019表格中折线图
- 最近搭建了一个OWA 2013环境，帮客户实现在线查看Excel文档，不过，使用过程中出现了错误，文件大小超过10MB就无法预览了，查了好久
- 问题：每次打开word2010或者excel2010等都要求配置原因：是因为您之前安装过wps，卸载的时候没有正常卸载所以会这样。解决办法：
- 11 月 18 日，苹果给大家推送了iOS 14.3 的第二个测试版，两周后的今天苹果再次给大家带来了iOS 14.3 beta3。iOS
- Excel中的加号该如何输入到Excel表格中去呢?下面是由小编分享的excel中输入加号的教程，以供大家阅读和学习。excel中输入加号的
- Excel中的图表经常需要更改标题，图表的标题具体该如何进行修改呢?下面是由小编分享的excel表格图表改标题的方法，以供大家阅读和学习。e
- 利用Excel对比两列数据的相同点或不同点是最基本的操作。那么大家知道怎么利用函数设置数据对比呢?接下来小编教你们excel表格设置用函数比
- 1、选择”替换“功能。打开”替换“功能，在弹出的对话框中选择”特殊格式“。2、选择”格式“类别。在弹出的对话框中，分别选择”任意数字“，此处
- 有时候，标准的字母符号、数字和标点符号并不能满足你编辑文档的需求。如果你正在准备一个微软Word文档，而且需要插入特殊字符，如版权符号、注册
- 对于财务和会计领域的朋友们来说，在excel在录入数据后，将数字自动转换为人民币大写是每天都要做的工作之一。由于使用的频繁和简便，IT部落窝
- Excel怎么对一个数开n次方根?开平方根注意我这里只是求一个非负数的算术平方根(一个正数有两个平方根，其中算术平方根大于0)。方法一，用到
- Excel表格是日常生活中必须要用到的软件之一。在使用过程中，难免会出现一些症状，比如Excel打不开了，一般出现这种状况时，下面小编为你带
