The simple way to display openargs is with a text box with a control source of:
=[OpenArgs]
Private Sub cmdOpenReport_Click()
Dim strOpenArgs As String
strOpenArgs = "Open Args Value"
DoCmd.OpenReport "rptTestOpenArgs", acViewPreview, , , , strOpenArgs
End Sub