I have a module generating and attaching my reports to email. I have just upgraded from 2007 to 2010 (Acrobat 9 to Acrobat X) and my PDF size has gone from 300K to 800K. I need the file to be under 500K. I can manually export to a smaller PDF but through the module it just will not work. Any idea's? Thanks (See module code below)
On Error GoTo Err_Send_Click
Dim mydb As Database, RS As Recordset
Set mydb = DBEngine.Workspaces(0).Databases(0)
Dim attachPDF As String
Dim docname As String, ctl As Control, strTo As String
Dim path As String, subject As String, body As String
Dim attach As String, blnSuccessful As Boolean
Set RS = mydb.OpenRecordset("qry_emailcap_mtd")
path = "c:\temp\"
docname = "emailcap_mtd"
attachPDF = path + docname & ".pdf"
subject = "Email Address Capture Report"
body = "Daily Report is Attached"
DoCmd.OutputTo acOutputReport, docname, acFormatPDF, attachPDF
Do Until RS.EOF
strTo = RS!Email
blnSuccessful = FnSafeSendEmail(strTo, subject, body, attachPDF, "", "")
Set RS = Nothing
Set mydb = Nothing