说明：本设置是实现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 = MyPrintAreaEnd Sub

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