在工作表打印之前或进行打印预览时,会触发工作簿的

BeforePrint

事件。在某些情况下希望在打印预览时能禁止触发该事件,例如如图

1

所示的工作

表中,用户在打印时使用下面的代码将流水号的数值自动加

1

1.

Private Sub Workbook_BeforePrint(Cancel As Boolean)

2.

Sheet1.Range("J1") = Sheet1.Range("J1") + 1

3.

End Sub

1

自动增加流水号