Impression automatique des lignes 1-5, puis 6-10 etc. par page
J'ai une list Excel de 750 adresses familiales auxquelles un organisme de bienfaisance offrira des dîners de Thanksgiving. J'ai besoin de remettre une page de 5 familles à 150 pilotes différents.
Existe-t-il un moyen d'imprimer automatiquement les lignes 1-5 sur une page, puis 6-10 sur la page suivante, etc. jusqu'à ce que les 750 familles soient imprimées?
Essayé en utilisant une large marge inférieure, mais ne fonctionne pas régulièrement, car certaines lignes ont une plus grande quantité de text sur les familles que les autres.
Cela peut se faire facilement avec une macro.
- Ouvrez votre file excel et affichez la feuille contenant toutes les adresses
- Appuyez sur Alt + F11 pour ouvrir l'éditeur Visual Basic
- Sélectionnez Insérer> Module pour append un nouveau module
-
Collez le code suivant.
Sub formatSheets() For i = 5 To 750 Step 5 ActiveSheet.HPageBreaks.Add Before:=Cells(i + 1, 1) Next End Sub - Sélectionnez Exécuter> Exécuter Sub / UserForm pour exécuter la macro
Cela formatera la feuille pour append une pause de page après chaque cinq lignes, ce qui donne 150 feuilles avec 5 adresses chacune.
Cela étant dit, il y a 150 feuilles pour seulement 5 adresses. Est-ce que 2 groupes de cinq adresses sur une feuille et de les découper en demi à la moitié suffisent? 🙂