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


雷达卡


京公网安备 11010802022788号







