妙用Microsoft Excel的VBA批量印表工作表
Microsoft Excel是很多辦公一族的常用工具，其強大的功能幾乎能滿足所有有資料處理方面的要求。而其自帶的 巨集命令更是能簡化一些資料處理中重複性的工作。
一次筆者要把一批資料的紙張大小由B4紙調整為A4紙，並在印表時縮放成一頁（即一頁寬，一頁高）。由於資料都是由單獨工作簙構成的，對於每一個明細資料，都需要逐個打開工作簙，設置每一張工作表的網頁面設置，然後再印表，工作量很大。然而筆者利用 巨集很快便完成了所有的工作。方法如下：
啟動Microsoft Excel，按快捷鍵「Alt+F11」進入Microsoft Visual Basic編輯器。在編輯器中單擊表菜單「插入→模塊」，在創建的模塊中輸入以下代碼：
Sub printer()
With Application.FileSearch
.LookIn = "E:\財務決算\變更報表\" '設置文件的搜索路徑
.FileType = msoFileTypeExcelWorkbooks '設置要搜索的文件類型為工作簿
If .Execute > 0 Then '如果找到一個或多個文件
For i = 1 To .FoundFiles.Count '設置打開工作簙的循環
Workbooks.Open Filename:=.FoundFiles(i) '打開找到的每一個工作簙
For j = 1 To Worksheets.Count '設置逐項選擇工作表的循環
Worksheets(j).Select '選擇工作表
With ActiveSheet.PageSetup '設置當前工作表的網頁面設置
.PaperSize = xlPaperA4 '設置紙張大小為A4紙
.Zoom = False
.FitToPagesWide = 1 '設置為1頁寬
.FitToPagesTall = 1 '設置為1頁高
End With
Next j '選擇下一張工作表
ActiveWorkbook.PrintOut '印表整個工作簙
ActiveWorkbook.Save '儲存當前工作簙
ActiveWorkbook.Close '關閉當前工作簙
Next i '打開下一個工作簙
Else
MsgBox "沒有找到任何工作簿文件" '提示沒有找到任何工作簿文件
End If
End With
End Sub
輸入代碼後，按快捷鍵「F5」執行 巨集，這時系統就會打開找到的第一個工作簿，並依次設置每一張工作表的紙張大小為A4紙張，縮印成一頁寬和一頁高，然後再印表整個工作簙，儲存並退出，接著依次打開當前目錄下的所有工作簿，執行相同的任務。
注意，程式所搜索到的文件僅是當前目錄下的工作簿，不包括子目錄下的文件。
|