[atlasgr]

Αγαπητε σπυρο

Μια προχειρη λυση για να φτιαξεις αυτό που θελεις είναι κατά την εκτυπωση να κανεις αορατα τα πεδια που δεν θελεις να εκτυπωθουν ελενχοντας τα με μια if
Παρακατω σου δινω ένα παραδειγμα που πιστευω πως θα βοηθησει.
Επισης σου δινω και μια ρουτινα που ελεγχει αν δεν υπαρχουν δεδομενα και ακυρωνει την εκτυπωση για να μην βγαζει κενες σελιδες

Καλημερα !!!


Private Sub Report_NoData(Cancel As Integer)
MsgBox "ΔΕΝ ΥΠΑΡΧΟΥΝ ΔΕΔΟΜΕΝΑ ΓΙΑ ΕΚΤΥΠΩΣΗ."
Cancel = -1
End Sub

Private Sub Report_Open(Cancel As Integer)
If Me.chekbox1 = False Then
Me.chekbox1.Visible = False
Else
Me.chekbox1.Visible = True
End If

'ΤΑ ΠΑΡΑΠΑΝΩ ΘΑ ΤΑ ΚΑΝΕΙΣ ΓΙΑ ΚΑΘΕ ΕΝΑ CHEKBOX ΧΩΡΙΣΤΑ

End Sub