Thanks for the pointer Boyd. I looked up snapshots here and using the code below it works a treat. Cheers.
Private Sub cmdEmail_Click()
DoCmd.SendObject acReport, "rptDS", "Snapshot Format", "Your email recipient", , , "EMAIL SUBJECT", , False
End Sub