在Excel上打印后如何增加单元格中的数字

Question

我想知道是否有人可以帮助我。 我需要在一个单元格中增加一个数字，然后在打印后清理一些文本框。 有一个预打印事件，但是在打印完表格之前没有做我想做的事情，显然，所有数据都被清除了（我对我的英语表示歉意），有没有办法做我需要的事情或对此做一个更好的练习。 谢谢。

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

Answer 1

要在打印后执行操作，您需要通过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