Excel에서 마지막 페이지에만 바닥글을 인쇄하는 방법은 무엇입니까?

기본적으로 Excel의 내장된 "헤더 및 바닥글" 기능을 사용하면 워크시트의 각 인쇄 페이지 하단에 쉽게 바닥글을 추가할 수 있습니다. 워크시트의 마지막 인쇄 페이지에만 바닥글을 추가하려면 어떻게 해야 할까요? 이 튜토리얼에서는 VBA 스크립트를 제공하여 단계별로 이 작업을 수행하는 데 도움을 드립니다.

VBA 코드를 사용하여 마지막 페이지에만 바닥글 인쇄하기

다음 VBA 코드를 실행하여 Excel에서 마지막 인쇄 페이지에만 사용자 정의 바닥글을 인쇄하세요.

1. 인쇄하려는 워크시트를 열고 마지막 페이지에만 표시될 사용자 정의 바닥글을 설정하세요.

2. "Alt" + "F11" 키를 눌러 "Microsoft Visual Basic for Applications" 창을 엽니다.

3. "Microsoft Visual Basic for Applications" 창에서 "삽입" > "모듈"을 클릭합니다. 그런 다음 다음 VBA 코드를 "모듈 (코드)" 창에 복사하세요.

VBA 코드: 마지막 페이지에만 바닥글 인쇄하기

Sub SetFooterOnLastPage()
'Updated by Extendoffice 20221024
    Dim xCount As Long
    Dim xWSh
    xCount = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    Set xWSh = Application.ActiveSheet
    With Application.ActiveSheet
    .PageSetup.RightFooter = ""
        If xCount > 1 Then
            .PrintOut From:=1, To:=xCount - 1
        End If
            .PageSetup.RightFooter = "Type your footer information here"
            .PrintOut From:=xCount, To:=xCount
    End With
End Sub

참고: 코드에서 "여기에 바닥글 정보를 입력하세요"라는 내용을 사용자 바닥글 정보로 교체하세요.

4. 코드를 실행하기 위해 "F5" 키를 누릅니다.

그러면 활성 워크시트가 마지막 인쇄 페이지에만 사용자 정의 바닥글이 삽입된 상태로 인쇄됩니다.