Καλησπέρα
Αλλάζουμε το βιβλίο σε .xlsm, για να μπορεί να εκτελεί κώδικα.
Ονομάζουμε το κελί που έχει την ημερομηνία πχ
pDates
Βάζουμε τον πιο κάτω κώδικα, σε μια module:
Κώδικας:
Const startDate As Date = "1/7/2019"
Const endDate As Date = "5/7/2019"
Sub PrintContDates()
Application.ScreenUpdating = False
Dim printDate As Date
For printDate = startDate To endDate
Range("pDates").Value = printDate
'ActiveSheet.PrintPreview
ActiveSheet.PrintOut
Next
'Range("pDates").Value = ""
Application.ScreenUpdating = True
End Sub
Το μόνο που χρειαζόμαστε είναι να βάλουμε στις σταθερές
όποιες ημερομηνίες θέλουμε για έναρξη-λήξη
Ο κώδικας εκτυπώνει το
ενεργό φύλλο σε τόσα αντίτυπα
όσες και οι ημερομηνίες που βάλαμε.
Ο κώδικας
δεν κάνει έλεγχο, αν οι ημερομηνίες είναι σωστές (πχ 30/2/2019)
ή αν η έναρξη είναι μεταγενέστερη από τη λήξη εκ παραδρομής...
Η πρώτη απενεργοποιημένη γραμμή, κάνει προεπισκόπηση (αν θέλουμε).
Η δεύτερη απενεργοποιημένη γραμμή, αφήνει κενό (αν θέλουμε) το κελί ημερομηνιών
Παράμετροι εκτύπωσης, manual από χρήστη.