Εκτύπωση μιας εγγραφής από φόρμα με 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 που πιστεύω πως είναι με διαφορά το καλύτερο στο συγκεκριμένο αντικείμενο.