Comment imprimer plusieurs lignes sélectionnées sur une seule page dans Excel ?

Ici, je vais parler de l'impression de plusieurs lignes sélectionnées sur une seule page avec VBA dans Excel. Veuillez procéder comme suit :

1. Appuyez simultanément sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, puis collez le code VBA ci-dessous dans la nouvelle fenêtre Module qui s'ouvre.

VBA : Imprimer plusieurs lignes sélectionnées sur une seule page dans Excel

Sub Extract_to_Print()
Dim Rg As Range, Rg1 As Range, Rg2 As Range
Dim xAddress As String
Dim xSht As Worksheet
Dim I As Long
Dim xScreenUpdate As Boolean
Dim xAlert As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select ranges you will print:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
xScreenUpdate = Application.ScreenUpdating
xAlert = Application.DisplayAlerts
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xSht = ThisWorkbook.Worksheets.Add
I = 1
For Each Rg1 In Rg.Areas
Rg1.Copy xSht.Range("A" & I)
I = I + Rg1.Rows.Count
Next
xSht.PrintOut
xSht.Delete
Application.ScreenUpdating = xScreenUpdate
Application.DisplayAlerts = xAlert
End Sub

3. Appuyez sur la touche F5 ou cliquez sur le bouton Exécuter pour exécuter ce VBA.

4. Maintenant, une boîte de dialogue Kutools pour Excel apparaît. Veuillez sélectionner plusieurs lignes que vous allez imprimer, puis cliquez sur le bouton OK pour imprimer ces lignes.

Remarque : En maintenant la touche Ctrl enfoncée, vous pouvez sélectionner plusieurs lignes non adjacentes en même temps.

Si nous pouvons copier ces lignes non consécutives et les coller sous forme de plage consécutive dans une autre feuille de calcul, nous pouvons facilement les imprimer sur une seule page. Cette méthode introduira l'utilitaire Copier des plages de Kutools pour Excel pour y parvenir.

1. Créez une nouvelle feuille de calcul, ensuite sélectionnez les lignes que vous allez imprimer depuis votre tableau, et cliquez sur Kutools > Plage > Copier des plages.

Remarque : En maintenant la touche Ctrl enfoncée, vous pouvez sélectionner plusieurs lignes non consécutives en même temps.

2. Dans la boîte de dialogue Copier plusieurs plages qui s'ouvre, cochez l'option Tout, puis cliquez sur le bouton Ok.

Remarque : Les options Inclure la hauteur de ligne et Inclure la largeur de colonne copieront les hauteurs de ligne et largeurs de colonne des plages sélectionnées et les colleront dans la plage de destination.

3. Sélectionnez la cellule A1 dans la nouvelle feuille de calcul créée, puis cliquez sur le bouton OK.

4. Restez dans la feuille de calcul de destination, puis cliquez sur Kutools > Supprimer > Supprimer les lignes vides > Feuille de calcul active.

Ensuite, une boîte de dialogue apparaît et vous montre combien de lignes ont été supprimées. Il suffit de la fermer.

5. Cliquez sur Fichier (ou bouton Office) > Imprimer pour imprimer ces lignes.

En fait, Kutools pour Excel propose un Assistant Impression de Sélections Multiples pour imprimer plusieurs plages ensemble dans Excel.

1. Cliquez sur Kutools Plus > Imprimer > Assistant Impression de Sélections Multiples pour ouvrir l'Assistant Impression de Sélections Multiples.

2. Dans l'Assistant Impression de Sélections Multiples qui s'ouvre, cliquez Ajouter bouton  pour ajouter les lignes que vous allez imprimer ensemble, puis cliquez sur le Terminer bouton.

Remarques :

(1) Après avoir cliqué sur le Ajouter bouton , vous pouvez sélectionner plusieurs plages non consécutives dans une feuille de calcul en maintenant la Ctrl touche enfoncée, puis en les sélectionnant une par une ;

(2) Pour supprimer une plage/ligne de la Plages à imprimer liste, sélectionnez simplement cette plage/ligne et cliquez sur le Supprimer bouton.

(3) Cet utilitaire ne prend pas en charge l'impression de lignes et de colonnes entières, telles que la ligne entière $4:$4 ou la colonne entière $B:$B.

3. Les lignes/plages sélectionnées ont été collées sous forme d'images liées dans une nouvelle feuille de calcul. Poursuivez en cliquant sur Fichier (ou bouton Office) > Imprimer pour l'imprimer.