When changing the print voice number to keep a copy or send a copy in email automaticly?

[TheUninvited]

As the title says i would like to copy or i mostly prefer to sent by email (a screenshot) or mail the excel to a specific email when i automatically increase the print voice number through a macro.

So how is that possible or if there is a similar way about doing this, we want to store the data somewhere because when something happens we want to know which client was it and so on. It would be nice to keep it store on email with a date on it.


This is the code i am using to automatically increase the number of print voice and cleaning some cells.

Sub printvoice()'
'  Ctrl+q
'
ActiveSheet.Unprotect
    Range("C10").Select
    ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 + 1
ActiveWindow.SelectedSheets.PrintOut Copies:=2


    Range("G9").ClearContents
    Range("G18").ClearContents
ActiveSheet.Protect
End Sub

Thanks for your time.

Crosspost:http://www.excelforum.com/showthread.php?t=1142371&p=4404579#post4404579