同一个Excel表格的一次打印多张怎么才能自动生成不同的单号（单号是自动加一的）下边的代码打印单号一样

Question

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim xStr As String
xStr = Right(Sheets("Sheet1").Range("g1"), 11)
If Left(xStr, 8) = Format(Date, "yyyymmdd") Then
xStr = "LD" & Format(Date, "yyyymmdd") & Right(xStr, 3) + 1
Else
xStr = "LD" & Format(Date, "yyyymmdd") & Right(xStr, 3) + 1
End If
Sheets("Sheet1").Range("g1") = xStr
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
N = Right(Range("g1"), 6) + 1
Range("g1") = "安贞ONLY No.A" & Format(N, "000000")
End Sub
或者以上的代码 请帮忙修改一下 求高手帮忙 万分感谢

Answer 1

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim N As String
If (Range("g1") = "") Then
Range("g1") = "安贞ONLY No.A000000"
End If
If (IsNumeric(Right(Range("g1").Value, 6))) Then
N = Right(Range("g1").Value, 6) + 1
Range("g1") = "安贞ONLY No.A" & Format(N, "000000")
End If
End Sub

Answer 2

http://wenku.baidu.com/view/456f9420af45b307e871970c.html

Answer 3

加个页码有必要这么复杂吗？一张一张写也没有这么复杂呀。追问

亲爱的 我只是每张做个单号 方便查询 一次打印多份同样的表格