Closing Report after Emailing

[Robert2150]

I have a button on a form to email a report.



This is the code:

Private Sub EmailSfRpt_Click()
Dim strWhere As String

strWhere = "[Property Number] = " & Me.[Property Number]
DoCmd.OpenReport "SQ FT/LN FT ITEMS REPORT REV", acPreview, , strWhere
DoCmd.SendObject acSendReport, "SQ FT/LN FT ITEMS REPORT REV", acFormatPDF
End Sub

Could anyone give me the code to close the report after the report is sent?

Thanks

[pbaldy]

DoCmd.Close

with the appropriate arguments.