DoCmd.OpenReport "1", acViewPreview, , , acHidden
Reports![1].Caption = Forms!FormName.TextboxName
DoCmd.SendObject acSendReport, sRep, acFormatPDF, sAddr, , , sSubj, "Thank you for taking this survey. Attached is your copy of " & "'Survey Report'."
DoCmd.Close acReport, "1"