Ich habe ein tägliches 1-seitiges Aufgabenformular, das jeden Tag ausgefüllt werden muss. Ich möchte die Lieferung eines ganzen Monats ausdrucken, indem Sie das Datumsfeld dynamisch ändern und jedes Datum in einem ganzen Bereich erneut drucken
| A | B | --|--------------|------------| 1 | Date | 10/01/2018 | 2 | Clean Dishes | __________ | 3 | Clean Litter | __________ | 4 | Clean Floor | __________ | Im Moment ziehe ich die gesamte Seite nur 31 Mal nach unten und drucke jedes Datum einzeln, aber das fühlt sich falsch an.
Irgendwelche Möglichkeiten, dies zu tun, vielleicht mit Makros, Kopfzeilen oder Serienbriefen?
Ich habe hier wirklich keine Antworten gefunden:
Schnelle Makrolösung. Bearbeiten Sie das Start- und Enddatum im 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