Εκτύπωση φόρμας

[sarrpan]

Καλησπέρα και ευχαριστώ για την βοήθεια σας. Ελπίζω αυτή την φορά να το στείλω στο σωστό μέρος και όχι στο forum για Word άντε να δούμε.
Έχω μία φόρμα στην οποία έχω χρησιμοποιήσει τους τρόπους φιλτραρίσματος και ταξινόμησης που έχω βρει στο πολύ αξιόλογο site σας.
Η φόρμα έχει 8 πεδία. Το φιλτράρισμα μπορεί να γίνει μέχρι 2 πεδία και η ταξινόμηση σε όλα τα πεδία.
Θα ήθελα να ρωτήσω πως μπορώ να εκτυπώσω το αποτέλεσμα του φιλτραρίσματος και ταξινόμησης χωρίς να φαίνονται τα κουμπιά. Ευχαριστώ.

[sarrpan]

Καλησπέρα ξανά το φιλτράρισμα της φόρμας το πέρασα στην έκθεση θα προσπαθήσω και για την ταξινόμηση.
Ευχαριστώ.

[Tasos]

Καλημέρα Παναγιώτη!

Για το άνοιγμα της έκθεσης με διατήρηση του φίλτρου και ταξινόμησης της φόρμας δοκίμασε:

Στο κουμπί της φόρμας:

Private Sub cmdPrintPreview_Click()
    Dim docName As String
    docName = "rep_Ilika"
    If Me.Filter <> vbNullString And Me.FilterOn Then
        DoCmd.OpenReport docName, acViewPreview, , Me.Filter, , Me.OrderBy
    Else
        DoCmd.OpenReport docName, acViewPreview, , , , Me.OrderBy
    End If
End Sub

Στον κώδικα της έκθεσης αφαίρεσε οτιδήποτε και πέρασε το παρακάτω:

Option Compare Database
Option Explicit

Private Sub Report_Open(Cancel As Integer)
    If Not IsNull(Me.OpenArgs) Then  ' 
        Me.OrderBy = Me.OpenArgs
        Me.OrderByOn = True
    End If
End Sub

Καλή συνέχεια!

Τάσος

[sarrpan]

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