ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [Εκτύπωση] Αύξουσα ημερομηνία σε εκτύπωση πολλών αντιτύπων

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 04-07-19, 10:44
Όνομα: Τίμος
Έκδοση λογισμικού Office: Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 13-03-2015
Μηνύματα: 44
Προεπιλογή Αύξουσα ημερομηνία σε εκτύπωση πολλών αντιτύπων

Καλημέρα σε όλη την παρέα,
Έχω ένα ημερήσιο δελτίο εργασιών και θα ήθελα, εάν είναι εφικτό με κώδικα, δίνοντας για εκτύπωση 10 αντίτυπα του δελτίου στο κελί της ημερομηνίας να εκτυπώνεται η ημερομηνία με αύξουσα μορφή σε κάθε αντίτυπο, δηλ. 1ο αντιτ. 4/7/2019 , 2ο αντιτ. 5/7/2019....... .

Ευχαριστώ εκ των προτέρων
Φιλικά
Τίμος
Απάντηση με παράθεση
  #2  
Παλιά 04-07-19, 16:11
Το avatar του χρήστη ChrisGT7
Super Moderator
Όνομα: Χρήστος Ζώρζος
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 20-09-2013
Περιοχή: Κοντά σε ηφαίστειο...
Μηνύματα: 768
Προεπιλογή

Καλησπέρα Τίμο,

Έχεις κάποιο δείγμα του αρχείου που χρησιμοποιείς καθημερινά έτσι ώστε ο κώδικας να προσαρμοστεί ανάλογα στη δομή του;
__________________
Your Curiosity Will Be The Death Of You!!!
Απάντηση με παράθεση
  #3  
Παλιά 04-07-19, 16:57
Όνομα: Τίμος
Έκδοση λογισμικού Office: Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 13-03-2015
Μηνύματα: 44
Προεπιλογή

Καλησπέρα Χρήστο,
Ανεβάζω το αρχείο. Είναι ένα ημερήσιο έντυπο εισόδου-εξόδου προσωπικού το οποίο θέλω να τυπώνω για κάθε μήνα με εκτυπωμένη την ημερομηνία για όλες τις μέρες του μήνα.
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsx Βιβλίο2.xlsx (12,5 KB, 9 εμφανίσεις)
Απάντηση με παράθεση
  #4  
Παλιά 04-07-19, 19:58
Το avatar του χρήστη 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 από χρήστη.
Απάντηση με παράθεση
  #5  
Παλιά 04-07-19, 20:48
Το avatar του χρήστη ChrisGT7
Super Moderator
Όνομα: Χρήστος Ζώρζος
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 20-09-2013
Περιοχή: Κοντά σε ηφαίστειο...
Μηνύματα: 768
Προεπιλογή

Και μια πρόταση ακόμα με χρήση φόρμας (UserForm) μέσω κουμπιού.
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm ΕΝΤΥΠΟ ΕΙΣΟΔΟΥ-ΕΞΟΔΟΥ ΠΡΟΣΩΠΙΚΟΥ.xlsm (26,0 KB, 14 εμφανίσεις)
__________________
Your Curiosity Will Be The Death Of You!!!
Απάντηση με παράθεση
  #6  
Παλιά 05-07-19, 10:51
Όνομα: Τίμος
Έκδοση λογισμικού Office: Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 13-03-2015
Μηνύματα: 44
Προεπιλογή

Καλημέρα,
Ευχαριστώ και τους δυο σας για την άμεση ανταπόκριση. Οι λύσεις που προτείνατε, και οι δύο, δουλεύουν άψογα.
Και πάλι ευχαριστώ.

Φιλικά
Τίμος
Απάντηση με παράθεση
  #7  
Παλιά 05-07-19, 11:53
Όνομα: Τίμος
Έκδοση λογισμικού Office: Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 13-03-2015
Μηνύματα: 44
Προεπιλογή

Σπύρο,
Μία διευκρίνηση, υπάρχει δυνατότητα παρέμβασης-τροποποίησης στην λύση που πρότεινες ώστε οι startDate & endDate να παίρνουν τιμές από κελιά του φύλλου για να μην χρειάζεται να ανοίγεις κάθε φορά την VBA και να αλλάζεις τις ημερομηνίες?

Φιλικά
Τίμος
Απάντηση με παράθεση
  #8  
Παλιά 05-07-19, 12:32
Το avatar του χρήστη 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
Προεπιλογή

Ναι υπάρχει.
Πες μου, ποια κελιά σε βολεύουν και θα στο ετοιμάσω, όταν επιστρέψω σπίτι.
Απάντηση με παράθεση
  #9  
Παλιά 05-07-19, 16:09
Όνομα: Τίμος
Έκδοση λογισμικού Office: Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 13-03-2015
Μηνύματα: 44
Προεπιλογή

Καλησπέρα Σπύρο,
Στο επισυναπτόμενο αρχείο στο κελί Β3 να εκτυπώνεται η ημερομηνία. Στα κελιά Ο2 & Ρ2 να γράφω τις επιθυμητές ημερομηνίες από-μέχρι.
Ευχαριστώ για τον χρόνο σου.

Φιλικά
Τίμος
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm ΕΝΤΥΠΟ ΕΙΣ-ΕΞΟΔ ΠΡΟΣΩΠΙΚΟΥ.xlsm (12,6 KB, 8 εμφανίσεις)
Απάντηση με παράθεση
  #10  
Παλιά 05-07-19, 22:39
Το avatar του χρήστη 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
Προεπιλογή

Καλησπέρα
Πάμε στον NameManager
Ονομάζουμε το κελί έναρξης sDate (o2)
Ονομάζουμε το κελί λήξης eDate (p2)
Ονομάζουμε το κελί ημερομηνίας pDate (b3)

Κώδικας:
Sub PrintContDates()
    Dim startDate   As Date
    Dim endDate     As Date
    Dim printDate   As Date

    Application.ScreenUpdating = False

    startDate = Range("sDate").Value
    endDate = Range("eDate").Value

    For printDate = startDate To endDate
        Range("pDates").Value = printDate
        'ActiveSheet.PrintPreview
        ActiveSheet.PrintOut
    Next printDate

    'Range("pDates").Value = ""
    Application.ScreenUpdating = True
End Sub 
Ισχύουν, όσα είπαμε στο post #4 περί σφαλμάτων κλπ.
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[VBA] Αριθμός αντιτύπων με PrintForm gfevran Excel - Ερωτήσεις / Απαντήσεις 4 17-02-19 14:41
Εκτύπωση πολλών εγγραφών σε έκθεση. Νιόνιος Access - Ερωτήσεις / Απαντήσεις 9 21-12-18 13:05
[Εκτύπωση] Αυτόματη εκτύπωση πολλών αρχείων excel με περισσότερα από ένα φύλλα ανά αρχείο BizosDim Excel - Ερωτήσεις / Απαντήσεις 1 09-10-18 11:13
Εκτύπωση και αρίθμηση σελίδας αντιτύπων σε Έκθεση Tasos Access samples - Χρήσιμα αρχεία & παραδείγματα 0 06-10-13 17:58
[Εκτύπωση] Εκτύπωση πολλών αρχείων, πολλών επιλογών mak Excel - Ερωτήσεις / Απαντήσεις 7 11-06-12 13:34


Η ώρα είναι 07:58.