Come interrompere le righe vuote durante la stampa del foglio di lavoro?

Se nel foglio di lavoro sono presenti più righe vuote, normalmente, quando si stampa il foglio, verranno stampate anche le righe vuote. Stampare il foglio di lavoro ignorando le righe vuote può farci risparmiare carta, in questo caso, come potresti interrompere le righe vuote quando si stampa un foglio di lavoro?

Interrompi le righe vuote quando si stampa un foglio di lavoro con codice VBA

---

Interrompi le righe vuote quando si stampa un foglio di lavoro con codice VBA

Con il seguente codice VBA, puoi stampare il foglio di lavoro senza righe vuote, per favore fai come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incolla il codice seguente nel file Modulo Finestra.

Codice VBA: interrompi le righe vuote durante la stampa:

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. Quindi premere F5 chiave per eseguire questo codice e verrà visualizzata una finestra di messaggio per ricordarti di selezionare l'intervallo di dati che desideri stampare, vedi screenshot:

4. E poi clicca OKe l'intervallo selezionato è stato stampato contemporaneamente senza le righe vuote.