如何按顺序打印excel表格

1.求教~excel怎么按顺序打印

Sub 排序打印（）Dim a As Longa = InputBox（""， "请输入需要打印的页数"）If a > 0 Then For i = 1 To a Dim b As Long b = InputBox（""， "请输入第" & i & "页页码"） range（"你页码所在的单元格"）.value=b '这里值得你要打印出来的页码 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next iEnd IfEnd Sub 前提你要选择打印的东西。