This is my command key to preview the report:
Private Sub cmdOpenReport_Click()
If Me.Filter = "" Then
msgbox "This preview is record specific, apply a filter before proceeding"
Else
DoCmd.OpenReport "Newptd", A_PREVIEW, , Me.Filter
DoCmd.RunCommand...