QUOTE (AC2Designs @ Sep 15 2010, 12:47 PM)
If I follow you correctly you only need to add
acFormatPDF to your Docmd.SendObject statement; after the "REport Name" arguement.
Docmd.SendObject acSendReport, "ReportName", acFormatPDF
Hope this helps,
If you need additional help, post your current SendObject statement and I'll update it to send PDF.
Tried that and Access errored out. I call a function to send the email (attaching a file to it) and that works - see the code below.
Public Function CreateEmail( _
Send_To As String, _
Subject As String, _
Message_Body As String, _
Attachment_Name As String)
Dim olApp As New Outlook.Application
Dim olMail As Outlook.MailItem
Dim olAttachments As Outlook.Attachments
Set olMail = olApp.CreateItem(olMailItem)
Set olAttachments = olMail.Attachments
olAttachments.Add Attachment_Name, olByValue, 1, "Test Description"
.To = Send_To
.Subject = Subject
.Body = Message_Body
Set olMail = Nothing
Set olApp = Nothing
What I need now is the command to push the report that's currently on screen to a PDF (that I can provide the name for) that I can then invoke this function to send the email...