Εκτύπωση μιας εγγραφής από φόρμα με mail merge

[sarafis]

Καλημέρα σε όλους
Γιώργο
Παρανόησα το μηνυμά σου και νόμισα πως βρήκες λύση, γι' αυτό δεν σου απάντησα. Εγώ χρησιμοποιώ τον παρακάτω κώδικα για τις ημερομηνίες:
doc.Bookmarks("ΗΜΕΡΟΜΗΝΙΑ").Range.Text = Format(Date, "d") & " " & RMONTH(Format(Date, "m")) & " " & Format(Date, "yyyy")
Μπορείς να αλλάξεις το Date με κάποιο πεδίο με ημερομηνίες της βάσης σου, αλλιώς εκτυπώνει την τρέχουσα ημερομηνία.
Η συνάρτηση RMONTH που χρησιμοποιώ είναι για βγαίνει ο μήνας στην γενική (δηλαδή Οκτωβρίου αντί για Οκτώβριος) και ο κώδικας που χρησιμοποίησα είναι:
Public Function RMONTH(AnyValue)
Select Case AnyValue
Case "1"
thestring = "Ιανουαρίου"
Case "2"
thestring = "Φεβρουαρίου"
Case "3"
thestring = "Μαρτίου"
Case "4"
thestring = "Απριλίου"
Case "5"
thestring = "Μαΐου"
Case "6"
thestring = "Ιουνίου"
Case "7"
thestring = "Ιουλίου"
Case "8"
thestring = "Αυγούστου"
Case "9"
thestring = "Σεπτεμβρίου"
Case "10"
thestring = "Οκτωβρίου"
Case "11"
thestring = "Νοεμβρίου"
Case "12"
thestring = "Δεκεμβρίου"
End Select
RMONTH = thestring
End Function

Χρήστο
Αν το εγγραφό σου δεν είναι ιδιαίτερα πολύπλοκο θα σου πρότεινα να κάνεις έκθεση στην Access. Έτσι μπορείς να τυπώσεις πλήθος εγγραφών ή και όλες. Το mail merge δεν το έχω χρησιμοποιήσει και δεν τα κατέχω καλά. Από λίγο που το μελέτησα εξ αφορμής της συζήτησης, πριν κολήσω με τους σελιδοδείκτες, είδα πως έχει επιλογές για να επιλέξεις συγεγκριμένες εγγραφές. Το βρίσκω όμως λίγο δύσχρηστο ειδικά για καθημερινή χρησιμοποιούμενη βάση. Αν το εγγραφό σου είναι πολύπλοκο ίσως θα πρέπει να το εξετάσεις ως εναλακτική λύση.

Να ευχαριστήσω ξανά τον Νίκο (Meteora) για την κατεύθυνση που μας έδωσε καθώς και τους δημιουργούς και διαχειστές του Forum που πιστεύω πως είναι με διαφορά το καλύτερο στο συγκεκριμένο αντικείμενο.

[dratsaki]

Καλημέρα, Καλημέρα Στέλιο .
Αφού κάνεις το καλό κι εγώ όπως σου έχω πει τον κώδικα τον ξέρω Μόνο οπτικά, δεν γράφω, κάνε μου τη χάρη αυτό που μου λες και βαλ’ το σε μια σελίδα εγώ το προσπάθησα αλλά τίποτα, μετά ξέρω αντιγραφή .
για τους σελιδοδίκτες

DYPistHmerominia, DYPistHmerominia1 DYPistHmerominia2

Σε ευχαριστώ πολύ.

[sarafis]

Γιώργο
Σου συμπλήρωσα τον κώδικα στο συνημμένο έγγραφο. Μην παραλείψεις να αντιγράψεις την συνάρτηση RMONTH σε μιά λειτουργική μονάδα (Module) στην βάση σου. Αν δεν το έχεις ξανακάνει από το παράθυρο της VBA πατάς δεξί κλικ στα Modules και επιλέγεις insert Module.

[Χρήστος]

Δηλαδή για την περίπτωση που ανέφερα Στέλιο, θα πρέπει να δημιουργηθεί έκθεση στην Access ή να τρέξω τον οδηγό της συγχώνευσης μέσα απ' το Word, έτσι δεν είναι;

[Χρήστος]

Σας ευχαριστώ για τις κατευθύνσεις. Καλημέρα.

[dratsaki]

Καλό μεσημέρι Στέλιο.
Το έφτιαξα και είναι εντάξει!
Το ευχαριστώ Πιστεύω δεν είναι τίποτα σ’ αυτό που κάνεις.

Θα στο ανταποδώσω αν κατέβεις Χανιά και συναντηθούμε!
Ευχαριστώ.

[dratsaki]

Καλησπέρα σε όλους
Στέλιο ΤΕΛΕΙΩΣΑ την βάση δεδομένων και τα έγγραφα. Σου στέλνω συνημμένο τι καταγράφει και εκτυπώνει.
Είναι τέλεια ευχαριστώ. Αύριο θα την βάλω στην Υπηρεσία σε δίκτυο να δω πως δουλεύει.
Και πάλι ευχαριστώ για όλα.