office 2003 excel如何在打印时使得单元格数字自动增加（账单号码自动增加）

 今天，一朋友需要打印很多账单，账单号格式已定。她不想在每次打印账单的时候都要改一次账单号，再打印！她希望每次打印账单的时候账单号自动加一！ 于是，找我帮她个忙，其实我也知道怎么搞，但是知道需要写一些vb代码！于是上网找了下果然找到了这样的代码！

     代码如下：

     Private Sub Workbook_BeforePrint(Cancel As Boolean)

    confirm = MsgBox("自动更新单据编号？", vbYesNoCancel)    If confirm = 2 Then Cancel = True: Exit Sub    If confirm= 6 Then    With ActiveSheet.Range("G5")         .Value = "No.  "&Format(Date, "yyyy") & Format(Val(Right(.Value, 4)) + 1, "0000")    End With    End IfEnd Sub

这段代码在百度知道里找到的，个人做了些修改！



 With ActiveSheet.Range("G5") 
这句代码是选择当前活动的Sheet的G5单元格。朋友的excel文档有多个sheet，而且每个sheet的G5单元格都是账单号。
-------------------------------
ps：操作，打开excel文档，按Alt+F11 进入vba模式，选择左侧栏的ThisWorkbook 然后在右侧代码编辑区贴上以上代码就可以了！
-----
from my Baidu bloger!