按Alt+F11，打开VBA编辑器，插入一个模块，把下面的代码贴进去，按F5执行
Sub 宏1()yy = [B1] '打印份数For i = 1 To yy ActiveWindow.SelectedSheets.PrintOut Copies:=1 [A1] ="001"& Application.Text(Right([A1], 4) + 1, "0000")NextEnd Sub
