Take a look at this...

http://www.excelguru.ca/node/21
--
HTH...

Jim Thomlinson


"S Davis" wrote:

Hello all,

I have a tool that essentially takes a snapshot of the current status
of the company. This is run every morning to encompass the entire
previous day's activities.

The next step in progression with this tool is to send a summary out
to all managers / VP's, etc. I'd love to come up with something in VBA
to make this easier. Currently this already logs all data into access
for historical tracking over time, but I would prefer to come up with
a way to either take a screenshot, create a pdf of the sheet, or
create a new sheet lacking formulas but containing the values and
formatting.

This is a long shot, but can it be done?

On Feb 13, 11:02 am, Jim Thomlinson <James_Thomlin...@owfg-Re-Move-
This-.com wrote:
Take a look at this...

http://www.excelguru.ca/node/21
--
HTH...

Jim Thomlinson



"S Davis" wrote:
Hello all,

I have a tool that essentially takes a snapshot of the current status
of the company. This is run every morning to encompass the entire
previous day's activities.

The next step in progression with this tool is to send a summary out
to all managers / VP's, etc. I'd love to come up with something in VBA
to make this easier. Currently this already logs all data into access
for historical tracking over time, but I would prefer to come up with
a way to either take a screenshot, create a pdf of the sheet, or
create a new sheet lacking formulas but containing the values and
formatting.

This is a long shot, but can it be done?- Hide quoted text -

- Show quoted text -

Thanks for the reply.. that works great and I am going to look into
using it. However, given that the generation of the PDF will be spread
across more users than myself, I'm hesitant to use an outside program
(ie. not Adobe). That requires widespread installation of the program,
which then becomes an IS issue... real hassle.

I noticed however that you can go to File - Send to - Mail
Recipient, and then mail off an entire worksheet or multiple
worksheets. This seems to be good enough for me, but I would like to
just incorporate it into some code that would automatically happen
every time I upload the history to Access via a button.

Possible?

Can I perhaps modify this code to mail off a selection, range, or
entire worksheet?:
*********
Dim OutApp As Object
Dim OutMail As Object

Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
'Set OutMail = OutApp.CreateItem(olMailItem)
Set OutMail = OutApp.CreateItem(0)
strbody = "*email content deleted*" & vbNewLine & vbNewLine & _
"*email content deleted*" & vbNewLine & vbNewLine & _
"*email content deleted*" & vbNewLine & vbNewLine & _
"*email content deleted*"

With OutMail
.To = "
.CC = "
.BCC = ""
.Subject = "*email subject*"
.Body = strbody
.Send
End With

Set OutMail = Nothing
Set OutApp = Nothing
ThisWorkbook.Close SaveChanges:=True

End Sub
*********