Here is the code I have used to send the report:
/code
Dim stDocName As String
If Me.Dirty Then Me.Dirty = False
stDocName = "rptContactMessage"
DoCmd.OpenReport stDocName, acPreview, , "[CPID]=" & Me!CPID
Call ConvertReportToPDF(stDocName, , "C:\Documents and Settings\All...