Excel VBA 엑셀에서 홀수 또는 짝수 페이지만 인쇄하는 방법(VBA 매크로 활용)

By

엑셀 시트를 인쇄할 때 홀수 페이지만 또는 짝수 페이지만 인쇄를 해야 하는 경우 어떻게 하면 될까요?

일반적으로 MS Word 같은 문서 편집 도구 같은 경우에는 인쇄의 기본 설정에서 ‘홀수 페이지만 인쇄‘ 또는 ‘짝수 페이지만 인쇄‘ 같은 선택 옵션을 제공하고 있습니다.

하지만 Excel 인쇄 기능에는 이러한 홀수 또는 짝수 페이지만 인쇄하는 옵션이 없습니다.
사실 엑셀은 일반적인 문서의 ‘페이지‘라는 개념보다 작업 공간의 ‘시트(Sheet)‘라는 개념을 가지고 있습니다.
아마도 그래서 인쇄 옵션에 별도의 홀수 또는 짝수 페이지만 인쇄하는 옵션을 두고 있지 않는 듯 합니다.

만약 엑셀에서 짝수 페이지만 인쇄 또는 홀수 페이지만 인쇄를 해야 하는 경우 매크로 코드를 사용해서 인쇄를 할 수 있습니다.

이번 글에서는 Excel VBA 엑셀에서 홀수 또는 짝수 페이지만 인쇄하는 방법(VBA 매크로 활용)에 대해 알아보겠습니다.

Excel VBA 매크로 코드로 홀수 또는 짝수 페이지 인쇄

엑셀에서 매크로 기능을 사용하기 위해서는 개발 도구 리본 메뉴가 추가되어야 합니다.

리본 메뉴에 개발 도구가 없거나 Excel VBA 매크로 기능을 처음 사용하시는 분은 엑셀에서 VBA(매크로)를 처음으로 시작할 때 참고하세요. 글을 먼저 읽어 보시기 바랍니다.

1. 홀수 또는 짝수 페이지를 인쇄할 시트를 활성화 한 상태에서 VBA(Microsoft Visual Basic for Applications) 창을 엽니다.
개발 도구 메뉴를 선택하거나 단축키 Alt + F11 키를 눌러 바로 열 수 있습니다.

2. VBA 메뉴의 [삽입]-[모듈]을 선택해서 새로운 코드 작성 화면에 아래의 VBA 코드를 입력합니다.

Sub Odd_Even_Print()
 
    Dim xTotalPages As Long     ‘전체페이지 수
    Dim xStartPage As String    ‘시작페이지(홀수-1페이지, 짝수-2페이지)
    Dim xMsg As String
    Dim xPage As Integer
    Dim xYesNo As Integer
    
    Application.ScreenUpdating = False
    
    xStartPage = InputBox(“홀수페이지면 1, 짝수페이지면 2 입력하세요”, “느티나무 지식창고”)
    
    If xStartPage = “1” Then
        xMsg = “홀수 페이지”
    ElseIf xStartPage = “2” Then
        xMsg = “짝수 페이지”
    Else
        MsgBox (“홀수페이지 ‘1’ or 짝수페이지 ‘2’ 입력.”)
        Exit Sub
    End If
    
    xYesNo = MsgBox(xMsg & “만 인쇄할까요?”, vbYesNo, “느티나무 지식창고”)
    
    If xYesNo = vbYes Then
        
        ‘전체 페이지
        xTotalPages = ActiveSheet.PageSetup.Pages.Count
        
        ‘시작페이지(1페이지 또는 2페이지)부터 마지막 페이지까지 스탭 2로 인쇄
        For xPage = Int(xStartPage) To xTotalPages Step 2
            ActiveSheet.PrintOut from:=xPage, To:=xPage
        Next
    Else
        Exit Sub
    End If
    
    Application.ScreenUpdating = True
    
End Sub
 

3. 아래 화면은 실제 VBA 화면 모습입니다.

Excel VBA 엑셀에서 홀수 또는 짝수 페이지만 인쇄하는 방법(VBA 매크로 활용) 1

4. 코드 작성했다면 매크로를 실행합니다.(단축키 F5)

5. 홀수 페이지만 인쇄할 경우 “1“을 입력하고 확인, 짝수 페이지만 인쇄할 경우 “2“를 입력하고 확인을 클릭하면 됩니다.

  • 1과 2는 시작 페이지를 의미합니다.
  • 1을 선택하면 1페이지부터 2페이지 간격으로 인쇄됩니다. 즉, 1,3,5,7… 페이지가 인쇄됩니다.
  • 2을 선택하면 2페이지부터 2페이지 간격으로 인쇄됩니다. 즉, 2,4,6,8… 페이지가 인쇄됩니다.
Excel VBA 엑셀에서 홀수 또는 짝수 페이지만 인쇄하는 방법(VBA 매크로 활용) 2

6. “1“을 선택했을 때 홀수 페이지만 인쇄가 됩니다.

Excel VBA 엑셀에서 홀수 또는 짝수 페이지만 인쇄하는 방법(VBA 매크로 활용) 3

마무리

이상으로 Excel VBA Marco 기능을 사용하여 엑셀 시트를 홀수 페이지만 또는 짝수 페이지만 인쇄하는 방법에 대해 알아보았습니다.

엑셀 VBA 매크로 기능을 사용하면 다양한 업무를 처리할 수 있습니다.

아래 엑셀 VBA 매크로와 관련하여 이전에 작성한 다른 포스팅 글도 꼭 참고해 보시기 바랍니다.





♥ 이 글이 도움이 되었기를 바랍니다. ^-^
댓글로 흔적을 남겨 주세요.

답글 남기기