Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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 maintenant, vous voulez imprimer certaines plages sélectionnées qui ne sont pas continues dans une page, de sorte que vous pouvez économiser beaucoup de papier. Excel fournit le Définir l'impression Arear fonctionnalité pour nous d'imprimer plusieurs sélections à la fois, mais, chaque plages sélectionnées seront imprimées dans une page séparément. Cet article explique comment imprimer plusieurs sélections non continues sur une page.

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

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


Imprimer plusieurs sélections 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 dans une page, le code VBA suivant peut vous aider, procédez comme suit:

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

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

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

Code VBA: Imprimez plusieurs sélections en une seule page

Sub PrintOutRange()
'Update 20150528
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 en même temps, et ils seront imprimés dans une seule page.


Imprimer plusieurs sélections à partir d'une ou plusieurs feuilles de calcul sur une 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 dans une page, le code ci-dessus ne fonctionnera pas. S'il vous plaît 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 plusieurs feuilles de calcul dans une page à la fois.

Kutools for Excel : avec plus de 300 compléments Excel pratiques, libre d'essayer sans limitation dans 60 jours.

Après l'installation de Kutools for Excel, s'il vous plaît faire avec les étapes suivantes:

1. Cliquez Entreprise > Impression > Imprimer l'assistant de sélection multiple, voir capture d'écran:

doc imprime plusieurs sélections 1

2. Dans le Imprimer l'assistant de sélection multiplecliquezbouton ajouter un document bouton 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 plusieurs feuilles de calcul), cliquez sur bouton supprimer un document bouton peut supprimer les plages dont vous n'avez pas besoin, voir capture d'écran:

doc imprime 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 selon vos besoins et vous pouvez ajouter une ligne vide entre les plages sélectionnées par chèque Ajouter une ligne vide entre les plages option, voir capture d'écran:

doc imprime plusieurs sélections 3

4. Ensuite, continuez à cliquer Suivant >> Butoon, à 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 imprimer, imprimer la feuille de calcul et la conserver ou imprimer la feuille de calcul et la supprimer. Voir la capture d'écran:

doc imprime plusieurs sélections 4

5. Cliquez 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 imprime 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 Imprimer l'assistant de sélection multiple.

Télécharger et tester gratuitement Kutools for Excel maintenant!


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

Kutools for Excel: avec plus que 200 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60. Téléchargez et essai gratuit maintenant!


Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe Créer une liste de diffusion et envoyer des emails ...
  • Super Formula Bar (éditez facilement plusieurs lignes de texte et de formule); Disposition de lecture (facilement lire et éditer un grand nombre de cellules); Coller à la gamme filtrée...
  • Fusionner les cellules / rangées / colonnes sans perdre de données; Contenu des cellules divisées; Combiner les lignes / colonnes en double... Prévenir les cellules en double; Comparer les plages...
  • Sélectionnez Dupliquer ou Unique Des rangées; Sélectionnez les lignes vierges (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux cahiers d'exercices; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de la formule; Créer automatiquement des références à plusieurs feuilles; Insérer des balles, Cases à cocher et plus ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre contenu de cellules et commentaires...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial en gras, en italique ...
  • Combinaison de classeurs et de feuilles de calcul; Fusionner les tables en fonction des colonnes clés; Fractionner les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus que de puissantes fonctionnalités 300. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit du jour 30.
kte tab 201905

Office Tab apporte une interface à onglets à Office et simplifie grandement votre travail

  • Activer l'édition par onglets et la lecture 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 le nombre de clics de souris pour vous chaque jour!
fond officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ok · 1 years ago
    how to print selection area with multi print ? i means selection area i wan to print 10 times
  • To post as a guest, your comment is unpublished.
    Mooring10 · 3 years ago
    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 [b]xRng1[/b] = xNewWs.Cells(xIndex, 1)