时间：2017-05-23 12:02作者：admin来源：未知人气：815我要评论(0)
如果需要用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
相关阅读 你想学的FILTER函数用法，很全了当Excel体积臃肿，运行卡顿时，我们应该做些什么？带合并单元格的表格，求和计数也不难Excel筛选条件怎么设置ExcelA4页面怎么设置Excel表格A列被隐藏了怎么恢复Excel图例位于底部怎么设置Excel图表怎么嵌入单元格Excel没保存不小心关闭怎么恢复Excel图表怎么设置X轴Y轴
热门文章
excel怎么制作表格？制作excel表格的步骤技巧
excel 常见的六个排序方法，你必须要学会
excel自动换行显示不全怎么办
excel 数据透视表 选定区域不能分组 的原因和解决方法
最新文章
你想学的FILTER函数用法，很全了
当Excel体积臃肿，运行卡顿时，我们应该做些什么？
带合并单元格的表格，求和计数也不难Excel筛选条件怎么设置ExcelA4页面怎么设置Excel表格A列被隐藏了怎么恢复
人气排行 excel怎么制作表格？制作excel表格的步骤技巧excel 常见的六个排序方法，你必须要学会excel自动换行显示不全怎么办excel 数据透视表 选定区域不能分组 的原因和解决方法Excel高级筛选怎么用 excel高级筛选多个条件（并且、或用法）excel if函数的多个条件使用方法Excel中的快速填充键ctrl+e没反应，不能用是为什么？excel 判断两列数据是否一致的四种方法
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>