특정한 조건을 충족하는 페이지만 출력하기

Step 1: 어떤 질문이었을까요?

이번 강좌는 아래와 같은 질문에서 출발합니다.

아이엑셀러

무슨 질문인지 이해가 가시지요?

5112, 5113, 5114 등과 같은 시트가 여러 개 있습니다. (실제 보내주신 예제 파일에는 이것 말고도 시트가 여러 개 더 있었습니다만, 편의상 몇 개만 남겨두고 삭제하였습니다)

해당 시트들을 클릭해 보면 빨간색으로 표시한 부분에 숫자값이 들어있는데, 이 값이 '0'인 경우에는 종이가 아까우니까 아예 출력되지 않도록 해 달라는 얘기입니다.

아래 버튼을 누르면 실제로 10여 장의 종이가 인쇄되므로 코드를 먼저 살펴보신 다음, 꼭 인쇄를 해서 봐야겠다는 생각이 드는 분만 클릭해 보세요!(괜히 나중에 아까운 종이 낭비되었다고 Exceller 욕하기 없깁니다!! ^^;)

Step 2: 코드 살펴보기

Sub PrintMoreThanZero()

    Dim i As Integer
    Dim intTotalPage As Integer
    Dim wrkSheet As Worksheet
    Dim strSheetName As String
    On Error Resume Next

    For Each wrkSheet In Worksheets

        If Left(wrkSheet.Name, 1) <> "5" Then GoTo E1
        '시트 이름을 확인해서 '5'로 시작되지 않는 경우에는 아래 구문들을 실행하지
        '않도록 하기 위한 것입니다.

        wrkSheet.Activate
        intTotalPage = ExecuteExcel4Macro("get.document(50)")
        '아주 오래간만에 XLM 매크로(Excel4Macro)를 사용하였군요.
        'XLM 매크로(Excel4Macro)에 대한 보다 자세한 설명은 VB0051 강좌를 살펴보세요.
        'get.document(50)은 현재 워크시트의 전체 페이지 수를 구해줍니다.

        For i = 1 To intTotalPage
            If Cells((i - 1) * 18 + 13, 23) = 0 Then
            '여기서 18을 곱한 다음 13을 더한 것은 왜일까~요?
            '답까지 알려드리면 재미가 없으니까 5112 시트로 가서 빨간색 셀의 주소들을
            '빈 종이에 적어 보시면 쉽게 이해하실 수 있으리라 생각합니다.

                'Doing Nothing
            Else
                ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Copies:=1
            End If
        Next i

E1:
    Next wrkSheet

ET:
    If Err <> 0 Then
        MsgBox Err.Description, , "에러 번호 : " & Err.Number
        Err.Clear
    End If

End Sub

생각보다 그리 복잡한 코드는 아님을 알 수 있습니다. 반복되는 패턴, 규칙을 발견하면, 그것을 프로그래밍 하는 것은 식은 죽 먹기입니다.

다음 시간에 또…

정리 — 페이지 조건부 인쇄 코드 핵심

자주 묻는 질문 (FAQ)

마치며

반복되는 패턴만 찾아내면 페이지 수만큼 순환문을 돌려서 원하는 페이지만 골라 인쇄하는 것은 그리 어렵지 않습니다. 각자의 양식에 맞게 행 간격과 판단 셀 위치만 바꿔서 활용해 보세요!