If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Print all charts in a workbook (multiple worksheets)
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! |
#2
|
|||
|
|||
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! |
#3
|
|||
|
|||
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! |
#4
|
|||
|
|||
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! |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Setting Print Titles on multiple worksheets | Judd Starr | Worksheet Functions | 1 | March 11th, 2004 10:17 PM |
Multiple worksheets print incorrectly in Windows XP | RM | Setting up and Configuration | 1 | February 15th, 2004 02:14 AM |
Copy a column into many worksheets in a workbook. | Lisa | Worksheet Functions | 1 | December 9th, 2003 08:13 PM |