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

若還有其它好辦法，請各位賜教。