매크로로 한번에 인쇄하기

매크로로 한번에 인쇄하기 질문 주셨네요.

​

엑셀에서 매크로를 사용해 P 시트에 있는 대상자의 이름을 C3 셀에 넣고, 그 후에 인쇄하는 작업을 자동화하려면 아래와 같은 VBA 코드를 사용할 수 있습니다. 이 코드는 인쇄 버튼에 연결하면 됩니다.

​

1. 먼저, 인쇄 버튼을 만들고, 버튼에 매크로를 할당하세요.

​

2. 아래 VBA 코드를 참고하여 매크로를 만드세요.

​

`vba

Sub 인쇄하기()

Dim 대상자Sheet As Worksheet

Dim 이름범위 As Range

Dim 대상자 As Range

Set 대상자Sheet = Worksheets("P") ' 대상자가 있는 시트 이름이 "P"일 경우

' 대상자 이름이 들어있는 셀 범위 (예: A2:A100) 변경 가능

Set 이름범위 = 대상자Sheet.Range("A2:A100")

For Each 대상자 In 이름범위

If 대상자.Value <> "" Then

' C3 셀에 이름 넣기

대상자Sheet.Range("C3").Value = 대상자.Value

' 인쇄

대상자Sheet.PrintOut

End If

Next 대상자

End Sub

`

​

이 매크로는 P 시트의 A2:A100 범위에 있는 대상자의 이름을 하나씩 C3에 넣고, 각 이름마다 문서를 인쇄합니다. 범위와 셀 위치는 실제 데이터 위치에 맞게 수정하세요.

​

만약 대상자별로 인쇄 페이지가 따로 있다면, 이 방식으로 자동 인쇄가 가능합니다. 더 세밀한 조정이 필요하면, 대상자 이름 목록과 인쇄 대상 페이지 구조에 맞게 코드를 수정하세요.