View Single Post
  #3  
Old December 31st, 2004, 01:59 AM
aewsaws
external usenet poster
 
Posts: n/a
Default

Thanks, John, but this script prints each page one at a time - which is fine
when printing to a printer, but when printing to a file (say .pdf) it creates
individual files of one chart each. I'm hoping to find script which prints
one file containing all charts, with each chart printing full page.

"John Mansfield" wrote:

Aewsaws,

This macro will print all of the embedded charts in a workbook with each
chart making up an entire page:

Sub PrintEmbeddedCharts()
Application.ScreenUpdating = False
Dim Sht As Object
Dim Cht As ChartObject
For Each Sht In ActiveWorkbook.Sheets
For Each Cht In Sht.ChartObjects
Cht.Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut
Next
Next
End Sub

----
Regards,
John Mansfield
http://www.pdbook.com

"aewsaws" wrote:

I know there is macro script to automatically print all of the charts on a
worksheet, but is there script or a workaround to automatically print all of
the charts on multiple worksheets in a workbook? I want them to print full
page size, but if I print to a file I need them to print to a single file
(which will yield multiple pages when printed). Thanks!