Access VisualBasic Script

Sub cmdPrint_Click()
   
   DoCmd.OpenReport "rptSales", acViewPreview
   
End Sub