Comment imprimer une feuille de calcul sans lignes vides dans Excel?
Lors de l'impression de la feuille de calcul, les lignes vierges seront également imprimées. Pour certains utilisateurs d'Excel, ils ont tendance à imprimer des feuilles de calcul sans lignes vierges afin de compacter les données et d'économiser des documents. Mais comment imprimer une feuille de calcul sans lignes vides dans Excel. Cet article vous propose deux méthodes.
Masquer les lignes vides avant d'imprimer avec le code VBA
Supprimez les lignes vides avant d'imprimer avec Kutools for Excel
Masquer les lignes vides avant d'imprimer avec le code VBA
Avant d'imprimer la feuille de calcul, vous pouvez exécuter le code VBA ci-dessous pour masquer les lignes vides dans une plage spécifiée. Veuillez faire comme suit.
1. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour Application fenêtre.
2. dans le Microsoft Visual Basic pour Application fenêtre, cliquez sur insérer > Module. Et puis copiez et collez ci-dessous le code VBA dans la fenêtre Module.
Code VBA: Masquer les lignes vides dans la plage sélectionnée
Sub HideBlankRows()
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
Dim I As Long
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "Don't support multiple ranges", , "Kutools for Excel"
Exit Sub
End If
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xRg.Rows.Count
xRg.Rows(I).EntireRow.Hidden = (Application.CountA(xRg.Rows(I)) = 0)
Next
Application.ScreenUpdating = xUpdate
End Sub3. appuie sur le F5 pour exécuter le code, puis un Kutools for Excel boîte de dialogue apparaît, veuillez sélectionner la plage avec des lignes vides que vous ne souhaitez pas imprimer, puis cliquez sur le OK .
Ensuite, toutes les lignes vides de la plage sélectionnée sont immédiatement masquées. Ensuite, vous pouvez commencer à imprimer la feuille de calcul sans lignes vides.
Notes: Après l'impression, vous pouvez afficher ces lignes vides avec le code VBA suivant.
Code VBA: affiche toutes les lignes vides dans la plage sélectionnée
Sub UnhideRows()
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range to unhide the blank rows", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
xRg.EntireRow.Hidden = False
Application.ScreenUpdating = xUpdate
End SubSupprimez les lignes vides avant d'imprimer avec Kutools for Excel
Si vous souhaitez imprimer une feuille de calcul sans lignes vides, nous vous recommandons de supprimer toutes les lignes vides avec le Supprimer les lignes vides utilité de Kutools for Excel, puis vous pouvez imprimer la feuille de calcul manuellement.
Avant d'appliquer Kutools for Excel, S'il vous plaît téléchargez et installez-le d'abord.
1. Cliquez Kutools > Supprimer > Supprimer les lignes vides > Dans la plage sélectionnée/Dans la feuille active/Dans les feuilles sélectionnées/Dans toutes les feuilles en fonction de vos besoins. Voir la capture d'écran:
Notes: Pour supprimer des lignes vides dans une plage, sélectionnez d'abord cette plage, puis appliquez la fonction.
2. Ensuite, une boîte de dialogue apparaît pour vous dire combien de lignes ont été supprimées, veuillez cliquer sur le OK .
Désormais, toutes les lignes vides sont supprimées. Vous pouvez commencer à imprimer votre feuille de calcul.
Notes: Cet utilitaire prend en charge Annuler Ctrl + Z.
Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
