請教各位高手, 想在EXCEL每次列印時, 固定欄位產生流水號

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

Sub testPrint()

    Dim xCount As Variant
    Dim xScreen As Boolean
    Dim I As Long
    On Error Resume Next
    Dim rgExp As Range
    Set rgExp = Range("A1", "F10")
    Dim folder As String
    folder = "d:\test\"
    


LInput:
    xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
    If TypeName(xCount) = "Boolean" Then Exit Sub
    If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
        MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
        GoTo LInput
    Else
        xScreen = Application.ScreenUpdating
        Application.ScreenUpdating = False
        For num = 1 To xCount
            Application.ScreenUpdating = xScreen
            new_serial = Replace(ActiveSheet.Range("F4").Value, "ECSDRD060", "") + 1
            ActiveSheet.Range("F4").Value = " ECSDRD060" & new_serial
            rgExp.CopyPicture Appearance:=xlScreen, Format:=xlPrinter
            With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, _
            Width:=rgExp.Width, Height:=rgExp.Height)
            .Name = "myChart"
            .Activate
            End With
            ActiveChart.Paste
            ActiveSheet.ChartObjects("myChart").Chart.Export folder & num & ".jpg"
            ActiveSheet.ChartObjects("myChart").Delete
            
        Next
        
        Call Shell("explorer.exe" & " " & folder, vbNormalFocus)
    End If
    
End Sub