Excel에서 빈 행이 인쇄되는 것을 어떻게 방지할 수 있나요?

Excel 워크시트에 빈 행이 포함되어 있는 경우, 일반적으로 데이터의 나머지 부분과 함께 인쇄되어 종이와 공간을 낭비하게 됩니다. 이를 방지하기 위해 VBA 코드를 사용하여 인쇄 전에 자동으로 빈 행을 숨길 수 있습니다. 이 가이드에서는 데이터가 포함된 행만 인쇄하여 더 깔끔하고 효율적인 출력을 보장하는 방법을 안내합니다.

VBA 코드를 사용하여 워크시트 인쇄 시 빈 행 제외하기

VBA 코드를 사용하여 워크시트 인쇄 시 빈 행 제외하기

다음 VBA 코드를 사용하면 빈 행 없이 워크시트를 인쇄할 수 있습니다. 아래 단계를 따르세요:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 인쇄 시 빈 행 방지:

Sub Print_NonBlank_Rows()
'Updateby Extendoffice
Dim xStr As String
    Dim xRg As Range
    Dim xHideRg As Range
    Dim xTxt As String
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
            If xHideRg Is Nothing Then
                Set xHideRg = xRg.Rows(I)
            Else
                Set xHideRg = Union(xHideRg, xRg.Rows(I))
            End If
        End If
    Next
    xHideRg.EntireRow.Hidden = True
    ActiveSheet.PrintOut Copies:=1
    xHideRg.EntireRow.Hidden = False
    Application.ScreenUpdating = True
End Sub

3. 그런 다음 코드를 실행하기 위해 F5 키를 누릅니다. 선택한 인쇄하려는 데이터 범위를 선택하라는 메시지 상자가 나타납니다. 스크린샷 참조:

4. 확인을 클릭하면 선택한 범위가 빈 행 없이 즉시 인쇄됩니다.