|
Vous ne pouvez pas imprimer directement chaque feuille un à la fois en utilisant une seule commande excel. Cependant, vous pouvez y parvenir en utilisant une combinaison de code VBA et une boucle. Voici comment:
1. Activez l'onglet Développeur:
* Accédez à Fichier> Options> Personnaliser le ruban .
* Cochez la case à côté de développeur et cliquez ok .
2. Insérer le code VBA:
* Cliquez sur le développeur onglet et sélectionnez Visual Basic .
* Dans le projet Fenêtre, cliquez avec le bouton droit sur Thisworkbook et choisissez insert> module .
* Collez le code suivant dans le module:
`` VBA
Sous Sub PrintSheetSindividuellement ()
DIM WS comme feuille de calcul
'Loop à travers chaque feuille dans le classeur
Pour chaque WS dans ce livret de travail.
'Imprimez la feuille actuelle
Ws.printout Copies:=1, Collate:=True
'Attendez que l'impression se termine (facultative)
Application.AiTER NOW + TIMEVALUE ("00:00:05") 'Attendez 5 secondes
Next ws
Sub-Sub
`` '
3. Exécutez la macro:
* Fermez le Visual Basic Editor .
* Retournez au développeur onglet et cliquez sur macros .
* Sélectionnez les PrintSheetSindividuellement macro et cliquez Exécuter .
Explication:
* `sub PrintSheetSindividuellement ()`: Définit le nom de macro.
* `dim ws as feuille de travail`: Déclare une variable pour représenter chaque feuille de calcul.
* `pour chaque ws dans ce livret. Boucle à travers chaque feuille du classeur.
* `ws.printout copies:=1, collate:=true`: Imprime la feuille de calcul actuelle (en utilisant `ws`), avec une copie et des pages rassemblées.
* `application.Wait maintenant + TimeValue (" 00:00:05 ")`: Cette ligne facultative attend 5 secondes après l'impression de chaque feuille pour s'assurer que le processus d'impression est terminé avant de passer à la feuille suivante. Ajustez le temps d'attente au besoin.
* `prochain ws`: Termine la boucle et continue la feuille suivante.
Remarques importantes:
* Le code suppose que vous avez une configuration d'imprimante par défaut. Sinon, vous pouvez spécifier l'imprimante à l'aide de `Ws.printout Imprimante:=" YourprinterName "'.
* Le `Wait` La déclaration peut être utile pour éviter les erreurs si l'impression prend beaucoup de temps. Ajustez le temps d'attente au besoin.
Alternative:Utilisation d'une boucle et d'une méthode `imprimer '(pas de VBA):
Bien que cette méthode n'imprime pas chaque feuille individuellement, vous pouvez utiliser une boucle dans une formule cellulaire pour déclencher le processus d'impression:
1. Dans une cellule, entrez la formule suivante:
`` `Excel
=If (row () <=sheets (), "feuille d'impression" &row (), "")
`` '
2. Copiez cette formule au nombre de feuilles dans votre classeur.
3. Utilisez les étapes suivantes pour imprimer chaque feuille à l'aide du `Printout` méthode:
* Allez dans Fichier> Imprimer .
* Dans la gamme d'impression déroute, sélectionnez Sélection .
* Cliquez sur imprimer .
Cela déclenchera le processus d'impression pour chaque feuille lorsque vous copiez la formule dans la colonne.
Choisissez la méthode qui convient le mieux à vos besoins et préférences.
|
