excel利用VBA设置或取消打印区域 | 您所在的位置:网站首页 › vba清除数据的代码怎么用 › excel利用VBA设置或取消打印区域 |
excel利用VBA设置或取消打印区域
网友投稿 · 2023-05-07 02:05 · 在线excel · 阅读 561 ![]() Excel是许多职场人士常用的烦恼之源,学习相关技巧需耗费大量时间。简道云作为一款办公神器,能很好地替代Excel。它是一个在线表单和数据管理工具,支持PC端和手机微信浏览器操作。除此之外,简道云还能辅助企业进行流程审批、财务报销、人事管理等业务管理,满足不同需求。 ![]() excel利用VBA设置或取消打印区域 如果需要用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 = 100Sheet1.PageSetup.PrintArea = "A1:G" & PrintRowEnd 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 NextSheet1.Names("Print_Area").DeleteOn Error GoTo 0End Sub ![]() |
CopyRight 2018-2019 实验室设备网 版权所有 |