Note: The other languages of the website are Google-translated. Back to English

 인쇄 후 셀 값을 자동으로 증가시키는 방법은 무엇입니까?

100 매를 인쇄해야하는 워크 시트 페이지가 있다고 가정하고 A1 셀은 수표 번호 Company-001입니다. 이제 인쇄 할 때마다 번호가 1 씩 증가하고 싶습니다. 즉, 두 번째 사본을 인쇄하면 번호가 자동으로 Company-002로 증가하고 세 번째 사본은 Company-003… 100 사본이되고 번호는 Company-XNUMX이됩니다. Excel에서이 문제를 빠르고 가능하게 해결하는 트릭이 있습니까?

VBA 코드로 인쇄 할 때마다 셀 값 자동 증가


화살표 블루 오른쪽 거품 VBA 코드로 인쇄 할 때마다 셀 값 자동 증가

일반적으로 Excel에서이 작업을 직접 해결할 수있는 방법은 없지만 여기서는 처리 할 VBA 코드를 만들겠습니다.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창문.

VBA 코드 : 각 인쇄 후 셀 값 자동 증가 :

Sub IncrementPrint()
'updateby Extendoffice
    Dim xCount As Variant
    Dim xScreen As Boolean
    Dim I As Long
    On Error Resume Next
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
            ActiveSheet.Range("A1").Value = " Company-00" & I
            ActiveSheet.PrintOut
        Next
        ActiveSheet.Range("A1").ClearContents
        Application.ScreenUpdating = xScreen
    End If
End Sub

3. 그런 다음 F5 키를 눌러이 코드를 실행하면 현재 워크 시트를 인쇄 할 매수를 입력하라는 메시지 상자가 나타납니다. 스크린 샷을 참조하십시오.

인쇄시 문서 증분 1

4. 딸깍 하는 소리 OK 버튼을 누르면 현재 워크 시트가 인쇄 중이며 동시에 인쇄 된 워크 시트의 번호는 필요에 따라 A001 셀에 Company-002, Company-003, Company-1…으로 지정됩니다.

주의 사항: 위 코드에서 셀 A1 주문한 시퀀스 번호와 원래 셀 값이 삽입됩니다. A1 지워집니다. 그리고“회사 -00”는 일련 번호이며 필요에 따라 변경할 수 있습니다.


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (51)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 코드는 놀랍습니다. 정확히 필요한 것입니다. 그러나 "A1" 셀에 입력된 번호에서 인쇄를 시작하는 방법이 있는지 궁금합니다. 예를 들어, 100매를 인쇄한 경우 다음 인쇄 실행 시 101번부터 인쇄하고 거기에서 세어야 합니다. 몇 가지 코드 조정을 시도했지만 셀(예: 101)에 입력한 숫자만 사용하고 1을 추가한 다음 나머지 지문은 해당 숫자(예: 102)로 고정됩니다. 도움을 주시면 감사하겠습니다. -)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
솔루션을 아직 찾지 못한 경우 코드의 17행을 다음과 같이 편집할 수 있습니다. ActiveSheet.Range("A1").Value = Range("A1").Value + 1
이렇게 하면 A1 셀에 있는 숫자에 +1이 추가됩니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
내 프린터로 전송되지 않습니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요

en exécutant la macro ça efface le nombre de ma cellule.
Je voudrais par exemple avoir A1= 153, je lance une impression de 10 copies. J'ai dis feuilles imprimée de 154 à 164 ET je voudrais que le nombre de la cellule soit aussi 164.
Comme ça quand je relance une impression ça prend le chiffre dans A1.
J'aimerais aussi si possible na pas à avoir aller dans basic. je voudrais que la macro s'active directement via l'option impression. 가능할까요?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요

en exécutant la macro ça efface le nombre en A1.

je voudrais si c'est possible par example A1=153 et faire une impression de 10 copies. donc je récupéré 10 impressions numérotées de 154 à 164 ET je voudrais aussi que le 153 en A1 s'incrémente jusqu'à 164.

Je voudrais aussi si possible ne pas à avoir utiliser basic pour l'impression. je voudrais pouvoir declancher directement la macro en utilisant l' option 인상은 단순함을 선전합니다.

당신의 도움을 주셔서 감사합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 카지님
문제를 해결하려면 아래 코드를 적용하십시오.
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
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
IA1-055242, IA1-055243, IA1-055244와 같은 일련 번호가 필요합니다 .....
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
올려주셔서 감사합니다. 많은 도움이 됩니다. 제 질문은 다음과 같습니다. 한 페이지에서 증분해야 하는 2개의 다른 바코드가 있습니다. 그렇게 하려면 코드를 어떻게 수정할 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
별도의 포스트에서 물어봐서 죄송합니다... 제 일련번호는 XNUMX으로 시작하지만 프로그램을 실행하면 XNUMX이 사라집니다. 숫자 필드를 텍스트로 변환하려고 시도했지만 해결되지 않았습니다. 다른 아이디어?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
R-Click Cell, Format, Custom, '일반'이라고 표시된 곳에서 일련 번호만큼 10으로 바꿉니다. 이렇게 하면 일련 번호 앞에 0000000000이 필요합니다. 0004563571자리 일련 번호인 일련 번호 그룹이 있는 경우 유형 필드에 XNUMX을 입력하여 일련 번호 필드에 'XNUMX'이 표시되도록 합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
아트 감사합니다. 나는 그것을 시도했지만 바코드는 사용자 정의 숫자 형식을 수행 한 후에도 계속 선행 XNUMX을 제거했습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
내 일련 번호는 227861로 시작합니다. 어떻게 인쇄합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
30부처럼 인쇄되었지만 지금은 인쇄할 수 없습니다. 스크립트를 여러 번 실행했지만 작동하지 않습니다. 아무 것도 하지 마십시오.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
위에 정말 감사합니다. 마지막 값을 저장하고 기억할 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 피터
다음에 인쇄할 때 마지막으로 인쇄된 값을 저장하고 기억하려면 다음 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개의 템플릿 / 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
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
내 셀은 I3이고 숫자는 2298입니다. (VBA 코드: 인쇄할 때마다 셀 값 자동 증가)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 제니퍼
문제를 해결하려면 다음 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로 돌아갑니다. 어떻게 방지할 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 제가 찾을 수 없는 다른 솔루션을 찾고 있고 코드를 사용자 정의하려고 해도 지금까지 달성할 수 없는 경우에도 매우 흥미롭습니다. 귀하의 예를 따르면 동일한 페이지를 100번 인쇄해야 할 것입니다. 예를 들어 동일한 PDF로 각 페이지마다 페이지 번호가 증가했습니다. 내가 말했듯이 한 부씩 인쇄 방법을 시도했지만 동일한 인쇄물의 여러 복사본이 필요한 경우 함께 인쇄할 수 있다는 것을 이해했습니다. 미리 감사합니다. Giuseppe
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 이 코드는 훌륭하게 작동하지만 32767 셀 값 이후에는 다시 1로 돌아갑니다. 이 값 이후에는 1번부터 인쇄됩니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
대단히 감사합니다. 그것은 저에게 효과적입니다. 그리고 저는 제 필요에 맞게 약간의 변경을 할 수 있습니다. 귀하의 공유에 정말 감사드립니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕 Jennifer, 이것을 시도하십시오
하위 증분인쇄()
'업데이트 Extendoffice 20160530
Dim xCount를 변형으로
부울로 xScreen 어둡게 하기
흐릿한 I As Long
오류에 대한 다음 재개
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

ActiveSheet.PrintOut
ActiveSheet.Range("J18").값 = ActiveSheet.Range("J18").값 + 1
다음
'ActiveSheet.Range("J18").ClearContents'

Application.ScreenUpdating = xScreen
END IF
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
만 감사합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
증분 # 인쇄에 적합합니다. 필요할 때 5일, 10일마다 어떻게 인쇄합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
인쇄할 값을 선택하는 방법이 있습니까? 예를 들어 시퀀스 1~30을 인쇄했지만 시퀀스 15~19를 다시 인쇄해야 합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 인쇄 후 K11 셀 번호를 1-2-3-4-5-6 등으로 변경하고 싶습니다. 도와주세요. 그리고 그 기능을 호출하는 방법도 알려주세요 pls help
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
1/10, 2/10, 3/10 등을 인쇄하도록 작은 변경을 하는 방법이 궁금합니다.
그렇지 않으면 이것은 훌륭하게 작동합니다. 감사해요.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 제 이름은 Suresh입니다. 예를 들어 운송장을 좋아하는 일련 번호가 없는 Excel 형식의 데이터가 있습니다. 나는 그것을 100 페이지 인쇄로 가져 가야하고 4 자리에서 필요한 일련 번호를 인쇄해야하지만 인쇄하는 동안 수동 방식으로해야합니다. 인쇄하는 동안 자동 생성 일련 번호 코드를 인쇄할 사람을 설명할 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
엄청난 !! 나는 프로그래머는 아니지만 내가 원하는 Cell ref와 uniq 넘버링을 변경할 수 있었습니다. 나를 위해 훌륭하게 일했습니다. 신의 축복이 있기를!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
2부가 자동으로 인쇄되도록 이 코드에 추가할 수도 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 부분을 변경할 수 있다고 생각합니다.ActiveSheet.Range("A1").Value = " Company-00" & I
ActiveSheet.PrintOut


ActiveSheet.Range("A1").Value = "회사-00" & I
ActiveSheet.PrintOut
ActiveSheet.PrintOut

각각 2개의 사본을 얻으려면.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
파일을 다시 연 후 바로 인쇄할 수 있고 여전히 일련 번호를 따를 수 있는지 궁금합니다.
내가 현재하고있는 일은 파일을 열 때마다 ALT + F11을 누른 다음 F5를 누르고 사본 수를 나타냅니다. 그런 다음 올바른 번호로 파일을 인쇄한 다음 다시 저장하면 됩니다. 다시 열면 같은 단계를 수행하기만 하면 됩니다.
파일을 열 때마다 바로 인쇄할 수 있는 코드가 있고 여전히 순차적인 번호를 따를 수 있는 코드가 있다면?
사전에 감사합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
파일을 다시 연 후 바로 인쇄할 수 있고 여전히 일련 번호를 따를 수 있는지 궁금합니다.

내가 현재하고있는 일은 파일을 열 때마다 ALT + F11을 누른 다음 F5를 누르고 사본 수를 나타냅니다. 그런 다음 올바른 번호로 파일을 인쇄한 다음 다시 저장하면 됩니다. 다시 열면 같은 단계를 수행하기만 하면 됩니다.

파일을 열 때마다 바로 인쇄할 수 있는 코드가 있고 여전히 순차적인 번호를 따를 수 있는 코드가 있다면?

사전에 감사합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
위의 코드를 공유해 주셔서 대단히 감사합니다. 모두에게 매우 도움이 됩니다. 인쇄 후 8 대신 1을 늘리는 코드를 더 추가할 수 있습니까?회신을 기다리고 있습니다. 감사해요
아직 코멘트가 없습니다
더보기
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호