Excel打印表格后按日期自动生成单号。

Question

打印一些日常单据，需要加入单号，格式：NO:YYMMDDXXXX,“XXXX”按打印份数排序，本次打印单号按上次打印序号开始编排。
日期更新单号自动归零。
不知道代码该如何编写。

请大神赐教啊~~本人函数还会一些，对代码是一窍不通。
单号放置在打印出来A1单元格就好，比如第一次一次打印出来100份单号是201702170001、201702170002。。。201702170100，第二次打印是从201702170101编号开始生成。第二天日期更改就自动从201702180001开始打印。

Answer 1

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Format(Date, "yymmdd") = Mid([A1], 4, 6) Then
        [A1] = "NO:" & Format(Date, "yymmdd") & Format(Right([A1], 4) + 1, "0000")
    Else
        [A1] = "NO:" & Format(Date, "yymmdd") & Format(1, "0000")
    End If
End Sub