[kapetang]

Καλησπέρα στην παρέα

Κώστα στη βάση δεδομένων, που επισυνάπτω, δοκίμασα μια λύση παραπλήσια με αυτήν που πρότεινε ο φίλος Νίκος.
Στηρίζεται στην ιδιότητα RecordsetClone της φόρμας, η οποία αντιπροσωπεύει τις εγγραφές που εμφανίζονται κάθε στιγμή στη φόρμα (όλες ή μέρος αν εφαρμοστεί κάποιο φίλτρο).
Ο κώδικας για την εκτύπωση θα πρέπει να προστεθεί στον κώδικα του συμβάντος «κλικ» του κουμπιού «Εκτύπωση» (cmdPrint), που φαίνεται παρακάτω.

Private Sub cmdPrint_Click()
    With Me.RecordsetClone
        .MoveFirst
        Do Until .EOF
            ' εντολές εκτύπωσης
            .MoveNext
        Loop
    End With
End Sub

Φιλικά/Γιώργος