안녕하세요 카지님
문제를 해결하려면 아래 코드를 적용하십시오.

Sub IncrementPrint_Num()
Dim xCount As Variant
Dim xScreen As Boolean
Dim I As Long
Dim xInt As Integer
On Error Resume Next
xInt = 153 'number
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 I = 1 To xCount
xInt = xInt + 1
ActiveSheet.Range("A1").Value = xInt
ActiveSheet.PrintOut
Next
Application.ScreenUpdating = xScreen
End If
End Sub

시도해보십시오. 도움이 되길 바라며, 다른 문제가 있으면 여기에 댓글을 남겨주세요.

첨부된 수정된 코드를 찾으십시오.

그리고 여기에 텍스트가 있습니다.
하위 증분인쇄()
'업데이트 Extendoffice
Dim xEnd를 변형으로
Dim xStart를 변형으로
부울로 xScreen 어둡게 하기
흐릿한 I As Long
오류에 대한 다음 재개
L입력:
xStart = Application.InputBox("첫 번째 숫자를 입력하세요:", "Kutools for Excel")
xEnd = Application.InputBox("마지막 숫자를 입력하세요:", "Kutools for Excel")
TypeName(xCount) = "Boolean"이면 Sub 종료
If (xStart = "") Or (Not IsNumeric(xStart)) 또는 (xStart < 1) then
MsgBox "오류가 입력되었습니다. 다시 입력하십시오.", vbInformation, "Kutools for Excel"
GoTo L입력
다른
xScreen = 응용 프로그램.화면 업데이트
Application.ScreenUpdating = False
I = xStart에서 xEnd까지
ActiveSheet.Range("A1").Value = "회사-00" & I
ActiveSheet.PrintOut
다음
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
END IF
최종 하위

안녕, 피터
다음에 인쇄할 때 마지막으로 인쇄된 값을 저장하고 기억하려면 다음 VBA 코드를 적용해야 합니다.

하위 증분인쇄()
Dim xCount를 변형으로
부울로 xScreen 어둡게 하기
흐릿한 I As Long
희미한 xM만큼
Dim xMNWS를 워크시트로
Dim xAWS를 워크시트로
오류에 대한 다음 재개
L입력:
xCount = Application.InputBox("인쇄할 매수를 입력하세요:", "Kutools for Excel")
TypeName(xCount) = "Boolean"이면 Sub 종료
If (xCount = "") Or (Not IsNumeric(xCount)) 또는 (xCount < 1) then
MsgBox "오류가 입력되었습니다. 다시 입력하십시오.", vbInformation, "Kutools for Excel"
GoTo L입력
다른
xScreen = 응용 프로그램.화면 업데이트
xAWS = ActiveSheet 설정
오류 시 EMarkNumberSheet로 이동
xMNWS = Sheets("IncrementPrint_MarkNumberSheet") 설정
EMark번호 시트:
xMNWS가 아무것도 아닌 경우
xMNWS = Application.Worksheets.Add(유형:=xlWorksheet) 설정
xMNWS.Name = "IncrementPrint_MarkNumberSheet"
xMNWS.Range("A1").값 = 0
xM = 0
xMNWS.Visible = xlSheetVeryHidden
다른
xM = xMNWS.Range("A1").값
END IF
Application.ScreenUpdating = False
I = 1에 대해 xCount
xM = xM + 1
xAWS.Range("A1").값 = " 회사-00" & xM
xAWS.PrintOut
다음
xMNWS.Range("A1").값 = xM
xAWS.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
END IF
최종 하위

인쇄된 번호를 기본 번호로 재설정해야 하는 경우 먼저 아래 코드를 실행한 다음 위 코드를 실행하여 인쇄하십시오.

하위 증분Print_Reinstall()
Dim xMNWS를 워크시트로
오류 시 EMarkNumberSheet로 이동
xMNWS = Sheets("IncrementPrint_MarkNumberSheet") 설정
EMark번호 시트:
xMNWS가 아닌 경우 다음은 아무것도 아닙니다.
Application.DisplayAlerts = False
xMNWS.Visible = xlSheetHidden
xMNWS.삭제
Application.DisplayAlerts = 참
END IF
최종 하위

안녕하세요, 이 코드를 주셔서 감사합니다. 질문이 있습니다. 이 코드를 사용했지만 시리즈가 0071,0072,0073처럼 점프합니다. 시리즈 3-1 사이에 100x처럼 발생했습니다. 그래서 다시 설치 코드를 저장하지 않고 vba를 닫았지만 저장된 마지막 시리즈(0032)를 인쇄합니다. 제 질문은 시리즈 점프 없이 어떻게 계속 인쇄할 수 있고 어떻게 101부터 다시 인쇄할 수 있습니까? 귀하의 답변에 정말 감사드립니다. 이렇게 돼서 미안하다. 저는 프로그래머가 아닙니다. 이해해 주시기 바랍니다. 고맙습니다! 

안녕하세요 데스몬드입니다.
한 페이지에 2개의 장소가 있는 경우(예: 2개의 쿠폰 또는 2개의 템플릿 / 2개의 바우처 등) 아래 코드를 사용해 볼 수 있습니다. (첫 번째 바코드와 두 번째 바코드가 같은 페이지의 "A1" 및 "A2" 셀에 있다고 가정하면 이 코드는 첫 번째 페이지의 Company-1 및 Company-20, 두 번째 페이지의 Company-001 및 Company-002와 같은 값을 증가시킵니다. 코드의 003, 004, 20, 21, 23 행에서 셀 번호와 회사 이름을 원하는 대로 편집할 수 있습니다. 
또한 시작 번호와 끝 번호를 입력하라는 메시지가 표시됩니다(코드의 이 부분에 대해 Geniusman에게 감사드립니다). 예를 들어 시작 번호. 는 1이고 끝은 아니오입니다. 8, 첫 번째 페이지에 4, 두 번째 페이지에 1,2, 세 번째 페이지에 1, 마지막으로 네 번째 페이지에 3,4의 2페이지를 인쇄합니다. 귀하 또는 이러한 유형의 필요/요구 사항을 찾는 사람에게 도움이 되기를 바랍니다. 
수정된 코드:----------------------------------------------- ------------하위 증분 인쇄()
'업데이트 Extendoffice
Dim xEnd를 변형으로
Dim xStart를 변형으로
부울로 xScreen 어둡게 하기
흐릿한 I As Long
오류에 대한 다음 재개
L입력:
xStart = Application.InputBox("첫 번째 숫자를 입력하세요:", "Kutools for Excel")
xEnd = Application.InputBox("마지막 숫자를 입력하세요:", "Kutools for Excel")
TypeName(xCount) = "Boolean"이면 Sub 종료
If (xStart = "") Or (Not IsNumeric(xStart)) 또는 (xStart < 1) then
MsgBox "오류가 입력되었습니다. 다시 입력하십시오.", vbInformation, "Kutools for Excel"
GoTo L입력
다른
xScreen = 응용 프로그램.화면 업데이트
Application.ScreenUpdating = False
I = xStart에서 xEnd까지
내가 Mod 2 = 0이면
ActiveSheet.Range("A1").Value = "회사-00" & I + 1
ActiveSheet.Range("A20").Value = "회사-00" & I
다른
ActiveSheet.Range("A20").Value = "회사-00" & I + 1
ActiveSheet.Range("A1").Value = "회사-00" & I
ActiveSheet.PrintOut
END IF
다음
ActiveSheet.Range("A1").ClearContents
ActiveSheet.Range("A20").ClearContents
Application.ScreenUpdating = xScreen
END IF
최종 하위

-------------------------------------------------- -------------------------------------------------- ------ 감사합니다, RNS

안녕, 제니퍼
문제를 해결하려면 다음 VBA 코드를 적용하십시오.
참고: 접두사 텍스트와 번호를 자신의 것으로 변경하십시오.

하위 IncrementPrint_Num()
Dim xCount를 변형으로
부울로 xScreen 어둡게 하기
흐릿한 I As Long
Dim xStr을 문자열로
Dim xInt를 정수로
오류에 대한 다음 재개
xStr = "회사-" '접두사 텍스트
xInt = 2291 '숫자
L입력:
xCount = Application.InputBox("인쇄할 매수를 입력하세요:", "Kutools for Excel")
TypeName(xCount) = "Boolean"이면 Sub 종료
If (xCount = "") Or (Not IsNumeric(xCount)) 또는 (xCount < 1) then
MsgBox "오류가 입력되었습니다. 다시 입력하십시오.", vbInformation, "Kutools for Excel"
GoTo L입력
다른
xScreen = 응용 프로그램.화면 업데이트
Application.ScreenUpdating = False
I = 1에 대해 xCount
xInt = xInt + 1
ActiveSheet.Range("A1").값 = xStr & xInt
ActiveSheet.PrintOut
다음
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
END IF
최종 하위

그것을 시도하십시오, 그것이 당신을 도울 수 있기를 바랍니다!

안녕하세요, 이것으로 저를 도와주시겠습니까? xINT가 5자리 이상이기를 원합니다. 6자리 숫자를 입력할 때마다 카운트는 1로 돌아갑니다. 어떻게 방지할 수 있습니까?