macro for printing pivot charts
 

Hi,

Does anyone know how it might be possible to add something to this macro
(see below) so that it adds the following words in bold to the top right
corner of each chart being printed: "Preliminary data".

The macro is also currently putting the page fields across the top left
part of the page in one line, for example:

country Austria indicator employment measurement number

For aesthetic purposes for presentation purposes, is there something
that could be added to the macro so that the page fields print in the
following way on each chart and if possible to change the print for
report presentation purposes:

country Austria
indicator Employment
measurement number

Any suggestions would be much appreciated.

Marina Madeleine

Sub PrintPivotChart()
'prints a chart for each item in the page field
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem

Set pt = Worksheets("Pivot").PivotTables(1)
For Each pf In pt.PageFields
For Each pi In pf.PivotItems
pt.PivotFields(pf.Name).CurrentPage = pi.Name
' ActiveWorkbook.Charts("Chart1").PrintOut
ActiveWorkbook.Charts("Chart1").PrintPreview
Next
Next pf
End Sub




*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!