[ Φόρμες ] Εκτύπωση τρέχουσας εγγραφής (στη φόρμα)

[JSARAK2001]

Καλημέρα σε όλους!! Καλή δουλειά να έχετε και πάντα δυνατοί και γεροί !!

Θα ήθελα να ρωτήσω πως γίνεται με ένα απλό κουμπί "Εκτύπωση τρέχουσας φόρμας" να εκτυπώνεται η τρέχουσα φόρμα, μέσω όμως μιας έκθεσης που έχω σχεδιάσει ώστε να εμφανίζονται τα στοιχεία που χρειάζονται.
Δηλ. στην ουσία να εκτυπώνεται η "έκθεση" αλλά με την τρέχουσα εγγραφή που βλέπω στην φόρμα.

Ίσως να έχει απαντηθεί αλλά δεν το βρήκα.

Και κάτι άλλο άσχετο αλλά σοβαρό !!!

Μόλις παρακολούθησα ένα πολύ χρήσιμο video που είχε ανεβάσει ο Λευτέρης για την Δημιουργία menu. Έκανα αυτά που είδα.. έκλεισα το αρχείο μου και τώρα που το ξανα-ανοίγω δεν υπάρχει τίποτα.. κενή οθόνη μόνο το παράθυρο access. Τι έγινε όλο το πρόγραμμα που έφτιαξα??? ΣΟΣ

Καλημέρα σε όλους.

Ιωάννη, δικό μου VIdeo;; Πότε; Άλλος Λευτέρης, μήπως;Μπορείς να κάνεις ένα link σε αυτό;

[JSARAK2001]

http://www.ms-office.gr/forum/9959-post4.html

Αυτό είναι το videaki (Lefterisg) είναι ο φίλος που το ανέβασε. Ζητώ συγνώμη που έγινε το μπέρδεμα
από δική μου αμέλεια για μη διευκρίνιση.

Ευχαριστώ για το ενδιαφέρον

[thanosgr]

Καλησπερα, δινω ενα δικο μου παράδειγμα... απο δικιά μου εφαρμογη

Η εκτυπωση γινετε απο button

Private Sub Command31_Click()
On Error GoTo HandleErr
Dim rst As DAO.Recordset
If Not IsNull(Me!TransactionLineID) Then
DoCmd.OpenReport "TransactionLine", acViewPreview, , "TransactionLineID = " & Me!TransactionLineID
End If

HandleErrExit:
On Error GoTo 0
Exit Sub

HandleErr:
Select Case Err.Number
Case Else
MsgBox "Error " & Err & " : " & Error$, vbCritical, "Προσοχή"
Resume HandleErrExit
End Select
End Sub