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即可。