Passer au contenu principal

Comment imprimer plusieurs sélections sur une page dans Excel?

Si vous avez une grande feuille de calcul qui contient beaucoup de données et que vous souhaitez maintenant imprimer certaines plages sélectionnées qui ne sont pas continues sur une page, afin d'économiser beaucoup de papier. Excel fournit le Définir la zone d'impression pour que nous puissions imprimer plusieurs sélections à la fois, mais chaque plage sélectionnée sera imprimée sur une page séparément. Cet article explique comment imprimer plusieurs sélections non continues sur une page.

Imprimer plusieurs sélections à partir d'une feuille de calcul sur une page avec le code VBA

Imprimez plusieurs sélections à partir d'une ou plusieurs feuilles de calcul sur une seule page avec Kutools for Excel


Imprimer plusieurs sélections à partir d'une feuille de calcul sur une page avec le code VBA

Pour imprimer plusieurs sélections non contiguës sélectionnées d'une feuille de calcul sur une seule page, le code VBA suivant peut vous aider, procédez comme suit:

1. presse Ctrl pour sélectionner les plages que vous souhaitez imprimer.

2. Maintenez le ALT + F11 clés, et il ouvre le Microsoft Visual Basic pour applications fenêtre.

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

Code VBA: imprimer plusieurs sélections sur une seule page

Sub PrintOutRange()
'Updateby Extendoffice
Dim xRng1 As Range
Dim xRng2 As Range
Dim xNewWs As Worksheet
Dim xWs As Worksheet
Dim xIndex As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWs = ActiveSheet
Set xNewWs = Worksheets.Add
xWs.Select
xIndex = 1
For Each xRng2 In Selection.Areas
    xRng2.Copy
    Set xRng1 = xNewWs.Cells(xIndex, 1)
    xRng1.PasteSpecial xlPasteValues
    xRng1.PasteSpecial xlPasteFormats
    xIndex = xIndex + xRng2.Rows.Count
Next
xNewWs.Columns.AutoFit
xNewWs.PrintOut
xNewWs.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. Puis appuyez F5 clé pour exécuter ce code, et vos plages sélectionnées seront imprimées à la fois, et elles seront imprimées sur une seule page.


Imprimez plusieurs sélections à partir d'une ou plusieurs feuilles de calcul sur une seule page avec Kutools for Excel

Le code ci-dessus peut uniquement vous aider à imprimer les plages sélectionnées à partir d'une feuille de calcul.Si vous souhaitez que plusieurs sélections de plusieurs feuilles de calcul soient imprimées sur une seule page, le code ci-dessus ne fonctionnera pas. Ne vous inquiétez pas, ici, je peux vous présenter un outil pratique - Kutools for Excel, Avec son Imprimer l'assistant de sélection multiple utilitaire, vous pouvez imprimer les sélections d'une feuille de calcul ou de plusieurs feuilles de calcul sur une seule page à la fois.

Kutools for Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours

Après l'installation de Kutools for Excel, veuillez suivre les étapes suivantes:

1Cliquez sur Kutools Plus > Impression > Imprimer l'assistant de sélection multiple, voir capture d'écran:

2. Dans le Imprimer l'assistant de sélection multiplecliquezbouton d'ajout de doc pour sélectionner et ajouter la plage que vous souhaitez imprimer dans la zone de liste Plages à imprimer une par une, (vous pouvez sélectionner les plages d'une feuille de calcul ou de plusieurs feuilles de calcul), cliquez sur bouton de suppression de document Le bouton peut supprimer les plages dont vous n'avez pas besoin, voir capture d'écran:

doc imprimer plusieurs sélections 2

3. Après avoir ajouté les sélections dans la zone de liste, cliquez sur Suivant >> pour passer à l'étape 2 de l'assistant, spécifiez les paramètres d'impression dont vous avez besoin et vous pouvez ajouter une ligne vide entre les plages sélectionnées en cochant Ajouter une ligne vide entre les plages option, voir capture d'écran:

doc imprimer plusieurs sélections 3

4. Puis continuez en cliquant Suivant >> maisoon, à l'étape 3 de l'assistant, spécifiez l'action pour la feuille de calcul temporaire, vous pouvez activer la feuille de calcul mais ne pas l'imprimer, imprimer la feuille de calcul et la conserver ou imprimer la feuille de calcul et la supprimer. Voir la capture d'écran:

doc imprimer plusieurs sélections 4

5Cliquez sur Finition bouton, toutes les plages sélectionnées ont été collées dans une nouvelle feuille de calcul en tant qu'objets image liés. Et vous pouvez les faire glisser et les réorganiser dans la feuille de calcul. Voir la capture d'écran:

doc imprimer plusieurs sélections 5

6. Lorsque vous imprimez cette nouvelle feuille de calcul, les plages seront imprimées sur une seule page selon vos besoins.

Cliquez pour en savoir plus sur cet utilitaire Assistant d'impression de sélection multiple.

Téléchargez et essayez gratuitement Kutools for Excel Now!


Démo : imprimez plusieurs sélections à partir d'une ou plusieurs feuilles de calcul sur une seule page avec Kutools for Excel

Kutools for Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Téléchargez et essayez gratuitement maintenant!

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

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...

Description


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!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how to print selection area with multi print ? i means selection area i wan to print 10 times
This comment was minimized by the moderator on the site
I tried your VBA code with Excel 2016 and I get an error: Compile Error: Sub of Function not defined. This line is highlighted: Set xRng1 = xNewWs.Cells(xIndex, 1)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations