Application VisualBasic Script

Sub dsub()
    DoCmd.OpenReport "reportName", acViewPreview
End Sub