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!

Yes, there is a way to print all charts in a workbook with multiple worksheets. Here are the steps:

1. Open the workbook that contains the charts you want to print.
2. Press the "Alt + F11" keys to open the Visual Basic Editor.
3. In the Visual Basic Editor, click on "Insert" from the top menu and select "Module".
4. In the new module, paste the following code:
   
   
   Formula:

   Sub PrintAllCharts()
Dim ws As Worksheet
Dim co As ChartObject

For Each ws In ActiveWorkbook.Worksheets
    For Each co In ws.ChartObjects
        co.Chart.PrintOut
    Next co
Next ws

End Sub 

5. Press "F5" or click on the "Run" button to execute the code.
6. All charts in all worksheets will be printed one by one. If you want to print them to a single file, you can select "Microsoft Print to PDF" or any other virtual printer that allows you to save the output as a PDF file.

Note: If you want to print the charts in full page size, you need to make sure that the charts are already set to the desired size before running the macro. You can do this by selecting the chart and adjusting the size in the "Format Chart Area" dialog box.

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!

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!

Aewsaws,

Perhaps the code at the following URL might point you in the right direction:

http://www.pdbook.com/index.php/exce..._to_pdf_files/

I don't have the Acrobat Distiller installed on my machine so I can't make
changes and test it here. However, the code does work for a group that I
work with to print several hundred financial dashboards to .pdf files (it can
be modified to print to one file instead of individuals).

Hope this can help.

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


"aewsaws" wrote:

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!