Can you email an access report as a .pdf file and if not - can you send the SnapShot viewer in the email?

This is a line of code I have from an old program:
             DoCmd.SendObject acReport, rec!ReportName, acFormatRTF, rec!EmailAddress, "", "", "" & GlobalCurrentDate & " - " & rec!TypeDesc & " - " & rec!ReportType & "", "", False, """"""

It works great, but for the report I'm sending now - it drops a lot of the formatting I need.  I'd like to send as a .pdf and we do have PDFCreator on the server.  I'm using Access 2003.  Again, if this is not possible, perhaps I can send the SnapShot Viewer in the email as well?  
Thanks!
c9k9hAsked:
Who is Participating?
 
Jeffrey CoachmanConnect With a Mentor MIS LiasonCommented:
0
 
c9k9hAuthor Commented:
...and another twist that is different from above.  When I sent the above report, it was one report that I sent to many people by looping through code.  This time, I have a report with 83 pages that I need to email to 83 different authors - and each author should only get there own page.  So I need to put a filter in there somewhere.  This is the function - it reads through a table.

Public Function EmailStatements() As String
    Dim DB As DAO.Database
    Dim rec As DAO.Recordset
    Set DB = CurrentDb()
    Set rec = DB.OpenRecordset("Testing_Table", dbOpenDynaset)
   
On Error GoTo ErrorHandling_Resume
   
With rec
    .MoveFirst
        Do While Not .EOF
                DoCmd.SendObject acReport, rec!ReportName, acFormatRTF, rec!TestEmail, "", "", rec!MonthYr, "", False, """"""
            rec.MoveNext
        Loop
End With

MsgBox "Files have been sent!", _
vbOKOnly + vbExclamation, "Success!"
   
ErrorHandling_Resume:
    Resume Next
   
End Function
0
 
Jeffrey CoachmanMIS LiasonCommented:
c9k9h,

Your "twist" should actually be in a new question.
Remember, you are only allowed 1 question per post:
http://www.experts-exchange.com/help.jsp#hi23.

Question 1:
If you wish to send the report as a snapshot change:
acFormatRTF
to...
acFormatSNP

Question2.
Here is a sample of how to email individual reports (Filter loop)
You should change the Customer Email addresses to yours to test this, at first.
I am sure you can adapt this sample to work in your own database.
;-)

JeffCoachman
 
0
Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

 
Patrick MatthewsCommented:
Jeff,

I think you forgot to attach the sample :)

Regards,

Patrick
0
 
Jeffrey CoachmanMIS LiasonCommented:
Matt,

I think I was too busy "Counting excel rows backwards" and I got confused!
:-)

Jeff
0
 
c9k9hAuthor Commented:
Jeff . . . you're absolutely correct.  This is two questions.  I'll withdraw this (if I can figure out how).
0
 
Jeffrey CoachmanMIS LiasonCommented:
c9k9h,

As  jesture of good faith, I proposed a solution to both questions here.
;-)

So the question becomes,:
Did you investigate both solutions, and what were the results?

JeffCoachman
0
 
Jeffrey CoachmanMIS LiasonCommented:
Let's keep the Q open because I had already proposed a solution to both "questions".
0
 
c9k9hAuthor Commented:
I'm confused.  I'm sorry.  I read through it quickly and thought no one wanted to touch it because it's two questions.  

So do I need to do something else to keep the question open?

Jeff . . . I won't have a chance to look at your proposed solution until tonight, but will respond then.  Thank you VERY much for you response!!!!
0
 
Jeffrey CoachmanMIS LiasonCommented:
If all goes according to plan, my post (22634818) should have "stopped" the delete request.
0
 
Jeffrey CoachmanMIS LiasonCommented:
Thanks WAM,
LOL
0
 
Jeffrey CoachmanMIS LiasonCommented:
c9k9h,

OK, just let me know what the results of my two proposals were.
(using the SNP format and the sample database)

Thanks!
;-)

Jeff
0
 
c9k9hAuthor Commented:
Jeff . . . I apologize for the delay in getting back to this.  This looks good.  So if I understand correctly, this line:             DoCmd.OpenReport "rptEmailCustReportCustomers", acViewPreview, , "CustomerID=" & "'" & strCustID & "'"

. . . puts the filter in for getting just the sheet needed, then emails it in the next line.  Very cool.  I wish I could double the points, because you did answer two questions.  I appreciate your good faith - it is very appreciated.

I'll have tons more questions coming and I'll be more careful.  Thank you Jeff!
0
 
c9k9hAuthor Commented:
I like the way this works.  I'm not sure if I can use the SnapShot, however.  I'm going to continue researching (or maybe post another question) around sending it in a .pdf format.  If I send it as an .rtf file - it loses too much of the formatting.  Many thanks for this!!!
0
 
Jeffrey CoachmanMIS LiasonCommented:
Glad I could help!
:-)

JeffCoachman
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.