머리말 다르게 지정하기

Step 1: 홀수·짝수 페이지 머리말 다르게 지정하기

VB0091 강좌에서 '홀수 짝수 페이지 인쇄하기'에 대해 설명 드렸습니다. 이번 시간에는 홀수 페이지와 짝수 페이지에 머리말을 서로 다르게 설정하는 방법에 대해 소개해 드립니다. 유인물이나 소책자를 제작하는 분들에게는 유익할 것 같습니다. 일단 아래 버튼을 눌러 보세요.

홀수 페이지에는 파일 이름이, 짝수 페이지에는 현재 날짜와 시간이 표시되지요?

Step 2: ApplyDifferentHeader 프로시저

Sub ApplyDifferentHeader()
    Dim i As Integer
    Dim intTotalPage As Integer
    intTotalPage = ExecuteExcel4Macro("Get.Document(50)")
    '//변수를 먼저 선언해 주었습니다. 변수 중에 intTotalPage 변수는 현재 워크시트이 전체 페이지 수를
    '//파악해서 저장하기 위한 변수입니다. 전체 페이지 수를 파악하기 위해서는 일반 워크시트 함수로는
    '//되지 않으므로 Excel4 Macro 함수를 사용했습니다. 이 함수에 대한 자세한 설명은 VB0091 강좌를
    '//참고하시기 바랍니다.

    With ActiveSheet.PageSetup
        For i = 1 To intTotalPage
        '//전체 페이지 수만큼 순환문을 돌면서 페이지 머리말을 설정합니다. 이 때 Mod 함수를 사용하면 짝수
        '//페이지와 홀수 페이지를 구분해 낼 수 있겠지요?

            If i Mod 2 = 0 Then
                .CenterHeader = "&8&D &T"
            '//현재 페이지 번호를 2로 나눈 나머지가 0이라는 것은 짝수 페이지라는 의미입니다. 따라서 짝수
            '//페이지에는 8포인트 크기의 날짜와 시간을 표시합니다.

            Else
                .CenterHeader = "&8&F"
            '//그 이외의 경우, 그러니까 당연히 홀수 페이지가 되겠는데... 홀수 페이지에는 8포인트 크기의
            '//파일 이름을 표시합니다.

            End If
        ActiveSheet.PrintOut from:=i, To:=i, preview:=True
        '//머리말 지정 작업이 끝나면 각 페이지마다 미리보기를 합니다. 만약 바로 프린터로 출력하려면
        '//ActiveSheet.PrintOut from:=i, To:=i, preview:=False 로 하시면 됩니다.

        Next i
    End With
End Sub

마무리

요즘 Exceller가 개인적인 일이 좀 있어서 강좌도 가끔 빼먹기도 하고, 질문에 답변도 제때에 못 드리고 그렇습니다. 아마 다음달 초까지는 어쩔 수 없을 듯 싶습니다. 메일로 질문을 하시면 답변을 못 받으실 확률이 높습니다. 6월까지는 게시판을 적극 활용해 주시면 좋겠습니다. 그리고 불가피하게 메일을 보내실 분은 질문을 가급적 서술식으로 상세히 설명해 주시고 시트 내에 자신의 메일 주소를 반드시 표시해 주시면 도움이 되겠습니다.

어느덧 주말입니다. Have a Nice Weekend!!!

다음 시간에 또...

정리 — 홀짝 머리말 핵심

자주 묻는 질문 (FAQ)

마치며

Excel4 매크로 함수와 Mod 연산자를 조합하면 홀수·짝수 페이지에 서로 다른 머리말을 넣을 수 있습니다.