alt + f11 ，调出宏编辑窗口 插入 - 模块，把代码贴入新模块中
Private Sub...[f4]=[f4 ]+1calculatesheets("申请表").printoutEnd sub 这个代码 修改下就好了,上一个 下一个 就都不用要了，直接打印 所有的:Private Sub... [f4]=[f4 ]+1calculatesheets("申请表").printoutEnd sub