[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

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

Τάσος