Excel打印自动生成流水号方法

zfchang

求助大侠，Excel打印自动生成流水号方法？附件是我的文档麻烦帮我编一下。
十万火急！

qqyyh

不明白意思？列举一下

tyhjl

在 [ThisWorkbook] 快按两下, 贴上程序 -- J2单元格内可以随便输入一个数，每打印一次，自动+1
Private Sub Workbook_BeforePrint(Cancel As Boolean)
[J2] = [J2] + 1
End Sub

金樽空对月

请阅附件

1. Private Sub Workbook_BeforePrint(Cancel As Boolean)
   
2. [z1] = [z1] + 1
   
3. [J2] = Year(Now()) & Format([z1], "0000")
   
4. End Sub

复制代码

金樽空对月

你在点打印后会先自动生成序号，然后再打印的。