使用VBA设置可以实时更新的打印区域
使用VBA设置可以实时更新的打印区域
fanjy
发布于 2022-11-16 05:02:29
发布于 2022-11-16 05:02:29
代码可运行
运行总次数：0
代码可运行
标签：VBA
有时候，工作表中的数据经常发生更新，这样，如果要设置打印区域的话，那么每次更新后都得重新选择并设置，以便将更新的数据包括到打印区域中。
如果希望在工作表数据更新的同时，设置的打印区域也相应的更新，那该如何实现呢？
可以使用VBA代码。
如果数据在工作表的列A至列C，可以使用下面的代码：
Sub UpdatePrintArea()
Dim wks As Worksheet
Set wks = Sheet1
With wks
.PageSetup.PrintArea = .Range("A1", .Range("C" & Rows.Count).End(xlUp)).Address
End With
End Sub如果数据为单元格A1所在的当前区域，可以使用下面的代码：
Sub UpdatePrintAreaCur()
Sheet1.PageSetup.PrintArea = [A1].CurrentRegion.Address
End Sub你可以在每次更新数据后，运行上面的过程。如果想要让Excel自动更新设置打印区域，则需要使用工作表的Change事件。
在数据所在工作表对象模块中，输入下面的代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UpdatePrintArea
'UpdatePrintAreaCur
End Sub这样，当工作表数据发生变化时，会调用UpdatePrintArea过程或者UpdatePrintAreaCur过程，重新设置打印区域。
本文参与 腾讯云自媒体同步曝光计划，分享自微信公众号。
原始发表：2022-08-30，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
腾讯云开发者
