Excel VBA设置工作簿打开时自动设置打印区域

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

作者：chinmusam 

假设本Excel的格式是：

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

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

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

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

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

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

Private Sub Workbook_Open()
   Dim iCount As Integer
   Dim MyPrintArea As String
   
   
   iCount = ActiveWindow.ActiveSheet.UsedRange.Rows.Count
   MyPrintArea = "$A$1:$L$" & iCount
   Range("$A$1:$L$" & iCount).Select
   Selection.Columns.AutoFit
   Range("A8").Select
   ActiveSheet.PageSetup.PrintArea = MyPrintArea
End Sub

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