在excel上打印后如何在单元格中增加数字
我想知道如果有人能帮助我。 我需要在单元格中增加一个数字，然后清理几个文本框，但在打印之后。 有一个beforeprint事件，但没有做我想要的，因为在打印表单之前，所有的数据都清理干净，显然（我对我的英语道歉）是否有办法做我所需要的或更好的做法。 谢谢。
Private Sub Workbook_BeforePrint(Cancel As Boolean) [I6] = [I6] + 1 [C11] = "" [C12] = "" Range("B16:B27").ClearContents Range("C16:C27").ClearContents Range("D16:D27") = "" Range("H16:H27").ClearContents End Sub 要在打印之后执行操作，需要通过在BeforePrint事件中的VBA的ActiveSheet.PrintOut打印文档，并将Cancel设置为true，所以它也不会运行自己的打印。
Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True Application.EnableEvents = False ActiveSheet.PrintOut Application.EnableEvents = True [I6] = [I6] + 1 [C11] = "" [C12] = "" Range("B16:B27").ClearContents Range("C16:C27").ClearContents Range("D16:D27") = "" Range("H16:H27").ClearContents End Sub