如何在Excel上更改文件打印設置以在打印工作簿時使用VBA打印幾頁

Question

我想在Excel中將文件打印設置更改為直接轉到VBA，並在打印工作簿時打印26個工作表中的一些。 大多數活動工作表應打印，但一些工作表不應打印。 該工作簿是一個模板，活動的和打印的工作表的數量將隨創建的每個新工作簿而變化。 最后，VBA代碼是否應放在“ ThisWorkbook”部分中？

Answer 1

我會用類似的東西

Sub PrintSheets ()
Dim Wks1 as Worksheet: set Wks1=Sheets("SheetName1")
Wks1.PrintOut Copies:=1, Collate:=True
'[...] and so on with your sheets

可以更改副本數的位置為了使代碼完全自動化，我通常創建一個名為“宏鍵”的新表，在其中存儲表的名稱和副本數（即A1 =“ SheetName1”，B1 =“ 5”，A2 = “ SheetName2”，B2 =“ 10”）。 從而：

Sub PrintSheets ()
Dim MacroKeys as Worksheet: Set MacroKeys = Sheets("Macrokeys")
SheetName1 = Macrokeys.Range("A1").Value
SheetName1_CopyCount = Macrokeys.Range("B1").Value
Sheet(SheetName1 ).PrintOut Copies:= SheetName1_CopyCount, Collate:=True
'[...] and so on with your sheets
End Sub

希望這可以幫助！