How do I set email report format to PDF

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I presently email laboratory reports in snapshot format.

The code behind the button (as well as all the other "guff" needed to send
an email) includes the line

stOutputFormat = "Snapshot Format"

I am using 602PrintPack with Printer name "Print2PDF"

How can I specify stOutputFormat to PDF format ?

Many thanks

Glen
 
Many thanks for your reply

I can see where I can download another PDF driver... But I already have one
as I stated in my original message.

Even if I cannot use my existing one and have to download PDF995 - I still
don't know how to write the code behind the buttton to select this driver
instead of Snapshot Format

THAT IS WHAT DO I REPLACE

stOutputFormat = "Snapshot Format"

WITH ?????

My full code is
Dim stDocName As String
Dim stDocName1 As String
Dim stDocName2 As String
Dim stOutputFormat As String
Dim stComment As String
Dim stSubject As String
Dim stEditMessage As Boolean
Dim stto As String
Dim stcc As String

stDocName = "E-mail Make Misc Copy"
stDocName1 = "Misc E-mail"
stDocName2 = "Delete Misc Copy Table"
stOutputFormat = "Snapshot Format"
stComment = "The Attached File is the Report you required. It is in
Snapshot Format Viewer which is available in Microsoft Access 2000 and later
versions. Double Click the Attachment to open it. "
stSubject = "*** Copy of Report " & BREF ***"
stEditMessage = True
If IsNull(Email1) Then
stto = ""
stcc = ""
Else
If IsNull(Email2) Then
stto = Forms![Misc Enquiry]!Email1
stcc = ""
Else
stto = Forms![Misc Enquiry]!Email1
stcc = Forms![Misc Enquiry]!Email2
End If
End If


DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.SendObject acReport, stDocName1, stOutputFormat, stto, stcc, ,
stSubject, stComment, stEditMessage
DoCmd.RunMacro stDocName2
End If
 
Back
Top