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