Create the following Function in a module:
Public Function RunMyReport (strReportName As String, strFormName As String)
DoCmd.OpenReport strReportName , acViewPreview, , , _
acWindowNormal, Application.Forms(strFormName).Filter
End Function
On your Menu Item's On Action Box enter the following:
=RunMyReport ("Your Report Name","Your Form Name")
In the report's Open action use the following example:
Private Sub Report_Open(Cancel As Integer)
If Not Me.OpenArgs = "" Then
Me.Filter = Me.OpenArgs
Me.FilterOn = True
End If
End Sub