1 votes

Réimprimer la même page avec des dates différentes

J'ai un formulaire de tâches quotidiennes d'une page qui doit être rempli chaque jour. J'aimerais imprimer un mois entier de fournitures en changeant dynamiquement le champ de la date et en réimprimant chaque date dans une plage entière.

  |  A           |   B        |
--|--------------|------------|
1 | Date         | 10/01/2018 |
2 | Clean Dishes | __________ |
3 | Clean Litter | __________ |
4 | Clean Floor  | __________ |

Pour l'instant, je fais glisser la page entière vers le bas 31 fois et j'imprime chaque date individuellement, mais cela ne me semble pas correct.

Y a-t-il un moyen de le faire, peut-être avec des macros ? en-têtes ou mail-merge ?

Je n'ai pas vraiment trouvé de réponses ici :

3voto

davidmneedham Points 2251

Solution macro rapide. Modifiez les dates de début et de fin dans le code.

Sub PrintAllDates()
    Application.ScreenUpdating = False
    Dim printDate As Date
    Dim startDate As Date
    Dim endDate As Date
    startDate = "10/01/2018"
    endDate = "10/31/2018"
    For printDate = startDate To endDate
        ActiveSheet.Range("B1") = printDate
        ActiveSheet.PrintOut
    Next
Application.ScreenUpdating = True
End Sub

SistemesEz.com

SystemesEZ est une communauté de sysadmins où vous pouvez résoudre vos problèmes et vos doutes. Vous pouvez consulter les questions des autres sysadmins, poser vos propres questions ou résoudre celles des autres.

Powered by:

X