<%Private Sub Form_Click()

MsgBox "生成两位后缀"

Cls

For i = 1 To 99

barcod= Format(Right(Year(Date), 2), "00") & Format(Month(Date), "00") & Format(Day(Date), "00") & Format(i, "00")

Next

MsgBox "生成四位后缀"

Cls

For i = 1 To 9999

 barcod=Format(Right(Year(Date), 2), "00") & Format(Month(Date), "00") & Format(Day(Date), "00") & Format(i, "0000")

Next

End Sub %>

 

需要打印的方式的话将barcod=更改为Print