Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
printing charts to PDF | Charts and Charting in Excel | |||
Printing Pivot Table Pie Charts | Charts and Charting in Excel | |||
Printing Pivot tables/charts | Charts and Charting in Excel | |||
Charts for printing | Charts and Charting in Excel | |||
Macro for pivot table and printing..... | Excel Programming |