
Sub PrintSelectedSheets()' 选择要打印的工作表Dim ws As WorksheetSet ws = ThisWorkbook.Sheets("Sheet1") ' 替换 "Sheet1" 为您要打印的第一个工作表的名称' 循环所有工作表Dim i As LongFor i = 1 To ws.UsedRange.Rows.Count ' 打印工作表的第 1 页到第 4 页 ws.PrintOut From:=1, To:=4 ' 选择下一张工作表 Next iEnd Sub
使用方法:
将上述代码复制到您的工作簿中的模块中。
更改
Set ws = ThisWorkbook.Sheets("Sheet1")
行中的 "Sheet1" 为您要打印的第一个工作表的名称。运行宏。
注意事项:
此代码将打印所有选定工作表的第 1 页到第 4 页。如果您只想打印特定页码,请修改
PrintOut
语句中的From
和To
参数。此代码将打印工作表的当前视图。如果您想要打印工作表的其他视图,请修改
PrintOut
语句中的View
参数。