[Spirosgr]

Καλημέρα
Ανεξάρτητα με την έκδοση office, μπορεί να κατεβάσει κανείς μια βάση επαφών (οποιαδήποτε)
που του κάνει για την δουλειά του, και να κάνει τα εξής:

Πρώτα, δημιουργούμε μια βάση από το πρότυπο και ονομάζουμε πχ Personal contact manager.
Ανοίγουμε και εμφανίζεται η προκαθορισμένη (αν θέλουμε) φόρμα.
*Επιλέξαμε για παράδειγμα την φόρμα με τις λεπτομέρειες επαφών.

Μετά, στην προβολή σχεδίασης της φόρμας, βάζουμε ένα κουμπί (ονομάζουμε cmdPrint και Caption πχ Print Record) *βλέπε εικόνα
και συνδέουμε τον κώδικα:

Option Compare Database
Option Explicit
Private Sub cmdPrint_Click()
    If IsNull(Me!ID) Then
        MsgBox "Επιλέξτε Πελάτη.", vbOKOnly, "Σφάλμα Επιλογής Πελάτη:"
        Exit Sub
    End If
    DoCmd.OpenReport "Contacts Extended", , , "ID = " & Me!ID
End Sub

Αν οι εκθέσεις που έχει η βάση προεγκατεστημένες, μας καλύπτουν,
τότε βάζουμε τον τίτλο, όποιας μας κάνει στο σημείο με τα κόκκινα γράμματα.
Αν όχι δημιουργούμε μια νέα, πχ Contacts Extended και
αυτόν τον τίτλο βάζουμε στην πιο πάνω θέση.

Πατώντας το πλήκτρο, θα εκτυπώσουμε μόνο την επαφή (πελάτη) που επιλέξαμε στην φόρμα,
και με όσα πεδία έχουμε ορίσει ότι μας χρειάζονται, με γνώμονα την έκθεση που δημιουργήσαμε.