如何实现打印时自动生成编码

ayiueo

要求简单的一个表,只有一页,我希望打印多份,每打一份按照我的规则在指定单元格自动生成编码如00001,00002...下一次打印的时候会按上次的号码接着打.请问如何实现?word 文档也可以实现吗?

[ 本帖最后由 ayiueo 于 2009-6-12 15:57 编辑 ]

lhsh

在G2格里输入0


cells（2，5）=“编号：”&  format（cells（2，7）+1，“000000”）

lhsh

Sub 按钮11_单击()
Cells(2, 5) = "编号：" & Format(Cells(2, 7) + 1, "00000")
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

ayiueo

请问我要一次打印5000份怎么设，我希望打印可以选择打多少份。另外，E2里的数字没有相应更新啊。