Sub dy()


On Error Resume Next


x = InputBox("请输入打印起始序号:", "提示")


y = InputBox("请输入打印结束序号:", "提示")


For i = x To y


Cells(1, 2) = i


ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True


Next i


End Sub