sortering ved udskrivning af rapport

Hej Eksperter

Min udskrifts knap ser sådan her ud men når jeg udskriver kommer posterne ikke ud i den stigende sotering som jeg har valgt i min kolone håber der er nogen der kan se fejlen eller hvad jeg mangler i min kode

Private Sub Kommandoknap94_Click()
On Error GoTo Err_Kommandoknap94_Click

        Dim sFilter As String
   
    If Me.FilterOn Then
        sFilter = Me.Filter
    Else
        sFilter = ""
    End If

DoCmd.OpenReport "Indkaldeliste", acNormal, , sFilter

Exit_Kommandoknap94_Click:
    Exit Sub

Err_Kommandoknap94_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap94_Click
End Sub