Comment arrêter les lignes vides lors de l'impression d'une feuille de calcul?

S'il y a plusieurs lignes vides dans votre feuille de calcul, normalement, lorsque vous imprimez la feuille, les lignes vides seront également imprimées. Imprimer la feuille de calcul en ignorant les lignes vides peut nous faire économiser du papier.Dans ce cas, comment pouvez-vous arrêter les lignes vides lors de l'impression d'une feuille de calcul?

Arrêter les lignes vides lors de l'impression de la feuille de calcul avec le code VBA

---

Arrêter les lignes vides lors de l'impression de la feuille de calcul avec le code VBA

Avec le code VBA suivant, vous pouvez imprimer la feuille de calcul sans lignes vides, procédez comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: arrêter les lignes vides lors de l'impression:

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. Puis appuyez F5 clé pour exécuter ce code, et une boîte de dialogue apparaîtra pour vous rappeler de sélectionner la plage de données que vous souhaitez imprimer, voir capture d'écran:

4. Et puis cliquez OK, et votre plage sélectionnée a été imprimée à la fois sans les lignes vides.