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

 

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