View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Tom Ogilvy Tom Ogilvy is offline
external usenet poster
 
Posts: 27,285
Default BeforePrint Add In

Instantiate Application Level Events in the Addin

http://www.cpearson.com/excel/appevent.htm
A Chip Pearson's site will give you a start point.

--
Reards,
Tom Ogilvy


"Daniel McCollick" wrote in message
...
Hello Everybody,
I have a custom header and footer currently in code. I want to pull

this
code to a add in so I can distribute any changes, etc. When I put the

code
into xla, the thisworkbook.beforeprint is no longer valid. I.e. How do I
call beforeprint to the active sheet?

Current Code:
Private Sub beforePrint(Cancel As Boolean)

ActiveSheet.PageSetup.RightHeader = "Blah Blah Blah"
ActiveSheet.PageSetup.LeftFooter = "Blah Blah Blah Blah"
ActiveSheet.PageSetup.RightFooter = "Blah Blah, Blahblah blah"
end sub


--
Dan McCollick