Calling Worksheet PivotTableUpdate sub from module

[PBG]

I have a worksheet which contains a procedure to run when the pivot table is changed. It is listed as Public Sub. The code in the pivot table reformats the pivot table in the manner requested by the users each time there is a change. The code sets various colors and other formatting. When the pivot table is printed the pivot table reverts back to one of the pivot table designs and this does not trigger the change. There is a "button" on the pivot table sheet which runs a macro to print the pivot table. It sets the appropriate printing requirements prior to printing. The print sub is located in a module. I am attempting to call the Pivot Table Update sub from the print sub. I have searched and not found an answer which provides a solution,

I have tried Call Sheet3.Worksheet_PivotTableUpdate, Sheet3.Worksheet_PivotTableUpdate and a couple of other variations. Is this possible or do I need to copy the PivotTableUpdate code into the print code after printing?

Thank you in advance for your time and responses. I will return to work Monday morning and provide any additional information needed.

 

[Alex Blakenburg]

Making and Event a Public is not considered to be good practice.
See this Article by Rubber Duck > Everything You Ever Wanted To Know About Events
and look for

Notice the VBE generates Private procedures: there is no reason whatsoever to ever make an event handler public.

If you make it public something like this would call it:

Dim pt As PivotTable
Set pt = Sheet1.PivotTables("PivotTable1")
Call Sheet3.Worksheet_PivotTableUpdate(pt)

Better options:
1) Move your code to reformat the pivot table into a standard module and have both your Update Event and Print Event call that Sub.
or
2) Get your print macro to run a pivottable refresh which in turn will trigger the event macro

 

[PBG]

Making and Event a Public is not considered to be good practice.
See this Article by Rubber Duck > Everything You Ever Wanted To Know About Events
and look for

If you make it public something like this would call it:

Dim pt As PivotTable
Set pt = Sheet1.PivotTables("PivotTable1")
Call Sheet3.Worksheet_PivotTableUpdate(pt)

Better options:
1) Move your code to reformat the pivot table into a standard module and have both your Update Event and Print Event call that Sub.
or
2) Get your print macro to run a pivottable refresh which in turn will trigger the event macro

Thank you, Alex. I chose to go with Better option #1 which I did not even think of. Appreciate your response and suggestions.

 

[Alex Blakenburg]

You're welcome. Glad we could help.