Εμφάνιση ενός μόνο μηνύματος
  #4  
Παλιά 04-07-19, 18:58
Το avatar του χρήστη Spirosgr
Spirosgr Ο χρήστης Spirosgr δεν είναι συνδεδεμένος
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.402
Προεπιλογή

Καλησπέρα
Αλλάζουμε το βιβλίο σε .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 από χρήστη.
Απάντηση με παράθεση