[Tasos]

Καλησπέρα σε όλους!
Γιώργο, αφού τα είπες όλα μας καλείς να ....τα επαναλάβουμε !
Απλά να προσθέσω ότι τα συμβάντα OnPrint() στις εκθέσεις εξαπολύονται κάθε φορά που γίνεται προεπισκόπιση ή εκτύπωση.

Αυτό σημαινει ότι πρέπει να αδειάζουμε τις μεταβλητές μας ή πεδία που πήραν τιμή μέσα από τον κώδικα των συμβάντων όπως φαίνεται στην έκθεση του Γιώργου δηλ.

Private Sub Ενότητα_κεφαλίδας_Σελίδας_Print(Cancel As Integer, PrintCount As Integer)

    If Me.Page = 1 Then
        yposynolo1 = 0
        yposynolo2 = 0
        yposynolo3 = 0
        yposynolo4 = 0
        yposynolo5 = 0
        yposynolo6 = 0

        Me.hmeresHEE_kefs = 0
        Me.synoloXORISKratiseis_kefs = 0
        Me.kratiseis1_kefs = 0
        Me.kratiseis2_kefs = 0
        Me.synolokratiseon_kefs = 0
        Me.telikopliroteo_kefs = 0
    End If
    'na mhn emfanizetai i etiketa stin proti selida
'..............
End Sub

Να είστε όλοι καλά!

Τάσος