按ALT+F11, 复制 PrivateSubWorkbook_BeforePrint(CancelAsBoolean) n=Val(Replace([a1],"已经累计打印","")) [a1]="已经累计打印"&n+1&"份" EndSub A1单元格就是打印数量
按ALT+F11, 复制 PrivateSubWorkbook_BeforePrint(CancelAsBoolean) n=Val(Replace([a1],"已经累计打印","")) [a1]="已经累计打印"&n+1&"份" EndSub A1单元格就是打印数量
Copyright © 2018 - 2021 www.yd166.com., All Rights Reserved.