This requires a macro or more patience than you or I have, because the
charts have to be printed sequentially. Something like this:

Sub PrintAllCharts()
Dim ch As Chart
Dim sh As Object
Dim co As ChartObject

' get all chart sheets
For Each ch In ActiveWorkbook.Charts
ch.PrintOut
Next
' get all charts (chart objects) in all sheets (worksheets and chart
sheets)
For Each sh In ActiveWorkbook.Sheets
For Each co In sh.ChartObjects
co.Chart.PrintOut
Next
Next
End Sub

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Steve" wrote in message
...
I have 40 plus sheet with data and embedded charts. How do I quickly
select
just the charts to print at the same time? I tried selecting all sheets
and
then clicking on the charts but this did not work. Any ideas?

Steve