2023年12月13日发(作者：)

Excel使用VBA动态设置打印区域

说明：本设置是实现Excel在一打开的瞬间便实现自动设置打印区域功能。

假设本Excel的格式是：

1.标题是从第一行至第七行；列是从第A列至L列

2.从第八行开始，便是动态变化的行数据

那么，要设置本动态Excel的打印区域：

１.打开Excel，鼠标右键Sheet名，点选“查看代码”。

２.双击“ThisWorkBook”字样，光标进入了代码编辑区。

３.可直接贴入如下代码：

Private Sub Workbook_Open()

Dim iCount As Integer

Dim MyPrintArea As String

iCount =

MyPrintArea = "$A$1:$L$" & iCount

Range("$A$1:$L$" & iCount).Select

t

Range("A8").Select

rea = MyPrintArea

End Sub

４.保存xls，关闭VBA即可。

若还有其它好办法，请各位赐教。