昨天突然接到一个好久未联系的朋友电话,说是江湖救急,要打印一份单据,单据上有个号码要自动生成,如下图,最土的办法是打印完一张,手工改下号码,但这种方法估计碰到成百上千张时估计会疯掉 网上找了实现方法,用Office中的宏即可解决,我把宏里面的代码依此实际需求做了些调整并贴出来,关键代码做下注释,以方便有同样需要的人使用 Sub PrintCopies() Dim i As Long Dim lngStart Dim lngCount Dim rngDoc As Range '提示需要打印多少份…