LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Old October 15th 04, 02:03 PM posted to microsoft.public.excel.programming
external usenet poster
First recorded activity by ExcelBanter: Aug 2004
Posts: 22
Default macro for printing pivot charts


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
Next pf
End Sub

*** Sent via Developersdex ***
Don't just participate in USENET...get rewarded for it!

Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
printing charts to PDF Jimmy Charts and Charting in Excel 1 May 26th 08 09:27 PM
Printing Pivot Table Pie Charts sherobot Charts and Charting in Excel 0 May 25th 06 01:24 AM
Printing Pivot tables/charts amanda Charts and Charting in Excel 3 May 17th 06 07:10 PM
Charts for printing Maxal Charts and Charting in Excel 1 April 22nd 06 04:03 AM
Macro for pivot table and printing..... JC[_9_] Excel Programming 1 August 26th 04 01:25 AM

All times are GMT +1. The time now is 12:52 PM.

Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Copyright 2004-2019 ExcelBanter.
The comments are property of their posters.

About Us

"It's about Microsoft Excel"


Copyright © 2017