Excel에서 셀 값에 따라 특정 페이지나 워크시트를 인쇄하는 방법은 무엇입니까?

셀의 값에 따라 Excel에서 특정 페이지나 워크시트를 인쇄해야 할 필요가 있던 적이 있습니까? 조건이 충족될 때 특정 페이지 번호나 전체 워크시트를 인쇄하려는 경우, 이 가이드에서는 이를 수행하기 위한 단계별 방법을 제공합니다.

VBA 코드를 사용하여 셀 값에 따라 특정 페이지 인쇄하기
VBA 코드를 사용하여 셀 값에 따라 특정 워크시트 인쇄하기

VBA 코드를 사용하여 셀 값에 따라 특정 페이지 인쇄하기

예를 들어, 현재 워크시트의 1페이지와 같은 특정 페이지를 현재 워크시트의 A1 셀에 페이지 번호 1을 입력했을 때 자동으로 인쇄되기를 원할 수 있습니다. 다음 단계를 통해 이를 달성할 수 있습니다.

1. 인쇄하고자 하는 페이지 번호가 포함된 셀을 선택한 후 Alt와 F11 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니다. 그런 다음 삽입 > 모듈을 클릭합니다.

2. 그러면 Microsoft Visual Basic for Applications 창이 나타납니다. 다음 VBA 코드를 복사하여 코드 창에 붙여넣으세요.

VBA 코드: 셀 값에 따라 페이지 인쇄하기

Option Explicit
Sub Print_Pages()
Dim xPage As Integer
Dim xYesorNo As Integer
With ActiveCell
    If Not IsEmpty(.Value) And IsNumeric(.Value) Then
        xPage = .Value
    Else: MsgBox "Please specify a cell and enter a page in cell"
        Exit Sub
    End If
End With
xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
    ActiveSheet.PrintOut from:=xPage, To:=xPage, preview:=True
Else
    Exit Sub
End If
End Sub

3. 코드를 실행하기 위해 F5 키를 누릅니다. 팝업되는 Kutools for Excel 대화 상자에서 '예' 버튼을 클릭하여 특정 페이지를 인쇄하거나, 인쇄하지 않으려면 '아니오' 버튼을 클릭하여 대화 상자를 종료하세요. 스크린샷 참조:

그러면 현재 워크시트의 특정 페이지 미리보기 창이 열립니다. 인쇄 버튼을 클릭하여 인쇄를 시작하세요.

VBA 코드를 사용하여 셀 값에 따라 특정 페이지 인쇄하기

예를 들어, 이 시트의 B2 셀 값이 1001과 같을 때 활성 워크시트를 인쇄하려고 한다고 가정해 보겠습니다. 다음 VBA 코드를 사용하여 이를 달성할 수 있습니다. 아래 단계를 따르세요.

1. 셀 값에 따라 인쇄하려는 시트 탭을 마우스 오른쪽 버튼으로 클릭한 다음 마우스 오른쪽 버튼 메뉴에서 코드 보기 를 클릭합니다.

2. 그러면 Microsoft Visual Basic for Applications 창이 나타납니다. 다음 VBA 코드를 복사하여 코드 창에 붙여넣으세요.

VBA 코드: 셀 값에 따라 워크시트 인쇄하기

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, xYesorNo As Integer
Set xCell = ActiveSheet.Range("B2")
If Application.Intersect(Target, xCell) Is Nothing Then Exit Sub
    If xCell.Value = 1001 Then
        xYesorNo = MsgBox("Ready to print the specified worksheet? ", vbYesNo, "Kutools for Excel")
        If xYesorNo = vbYes Then
          ActiveSheet.PrintOut
        Else
           Exit Sub
        End If
End If
End Sub

참고: 필요에 따라 코드에서 셀과 셀 값을 변경할 수 있습니다.

3. Microsoft Visual Basic for Applications 창을 닫으려면 Alt + Q 키를 누릅니다.

B2 셀에 숫자 1001을 입력하면 Kutools for Excel 대화 상자가 나타납니다. 인쇄를 시작하려면 '예' 버튼을 클릭하거나 인쇄하지 않고 바로 대화 상자를 종료하려면 '아니오' 버튼을 클릭하세요. 스크린샷 참조:

팁: 현재 워크시트의 비연속적인 페이지(예: 1, 6, 9페이지)를 직접 인쇄하거나 모든 짝수 또는 홀수 페이지만 인쇄하려면 아래 스크린샷에 표시된 것처럼 Kutools for Excel의 지정된 페이지 인쇄 기능을 사용할 수 있습니다.

관련 기사:

• Excel에서 동적 인쇄 영역을 만드는 방법은 무엇입니까?
• Excel에서 워크시트의 마지막 페이지만 인쇄하는 방법은 무엇입니까?