[dion59]

Καλησπέρα στην ομάδα. Άλλαξα Η/Υ και στο προγραμματάκι που είχα φτειάξει, κάτι άλλαξε. Πατώντας ένα κουμί "ΕΚΤΥΠΩΣΗ" μου ανοίγει την έκθεση αλλά δεν την εκτυπώνει αυτόματα. Ξέρει κάποιος κάτιο για να με βοηθήσει? Ανεβάζω την εντολή όπως ήταν. Ευχαριστώ εκ των προτέρων.

Private Sub Εντολή43_Click()
' Το όνομα της Αναφοράς βάζουμε όπου RptMartiresMonomeles σε κάθε πλήκτρο μέσα σε "
' Σε κάθε κουμπί βάζουμε και το HideAllObjects
Screen.ActiveForm.Dirty = False
HideAllObjects
Me.ΕΚΤΥΠΩΣΗ2 = Now
Me.Dirty = False
RptOpen = "ΜΑΡΤΥΡΑΣ ΜΟΝΟΜΕΛΕΣ"
SubOpenReport RptOpen
Doublefield = False
End Sub