Cum să opriți rândurile goale când imprimați foaia de lucru?

Dacă există mai multe rânduri goale în foaia de lucru, în mod normal, când imprimați coala, vor fi imprimate și rândurile goale. Pentru a imprima foaia de lucru ignorând rândurile goale, putem salva hârtii pentru noi, în acest caz, cum ați putea opri rândurile goale când imprimați o foaie de lucru?

Opriți rândurile goale când imprimați foaia de lucru cu cod VBA

---

Opriți rândurile goale când imprimați foaia de lucru cu cod VBA

Cu următorul cod VBA, puteți imprima foaia de lucru fără rânduri goale, faceți acest lucru:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.

Cod VBA: Opriți rândurile goale la imprimare:

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. Apoi apăsați F5 pentru a rula acest cod și va apărea o casetă de prompt pentru a vă reaminti să selectați intervalul de date pe care doriți să îl imprimați, vedeți captura de ecran:

4. Apoi faceți clic pe OK, iar intervalul selectat a fost tipărit simultan fără rândurile goale.