Print every tab which is a chart (or everything but 'data')

Grizlore

Active Member
Joined
Aug 22, 2006
Messages
256
Dear All,

Would someone have such a code?

I am try to print just the charts in a workbooks using VBA

I have a spreadsheet with >28 charts in it, and one data worksheet (called "data).

So either need to print everything apart from the tab called "Data". Or print every tab which is a chart.

Would someone have such a code. I am getting stuck with my code attempts.


Help would be much appreciated
 

FormR

MrExcel MVP
Joined
Aug 18, 2011
Messages
6,275
Office Version
365
Platform
Windows
This maybe:

Code:
Sub Test()
Dim x As Worksheet
    For Each x In ActiveWorkbook.Worksheets
    
        If x.Name <> "Data" Then x.PrintOut
    
    Next x
End Sub
 

Grizlore

Active Member
Joined
Aug 22, 2006
Messages
256
ummm... not sure why, but your code just prints the "data" tab. Whether i put <> or = "data"

very strange
 

FormR

MrExcel MVP
Joined
Aug 18, 2011
Messages
6,275
Office Version
365
Platform
Windows
How about:

Code:
Sub Test()
Dim x As Chart
    For Each x In ActiveWorkbook.Charts
        x.PrintOut
    Next x
End Sub
 

Grizlore

Active Member
Joined
Aug 22, 2006
Messages
256
Thanks seems to have fixed it.

Many Thanks


ps - there is and annoying strobing print announcement when flashes on/off, and Application.ScreenUpdating = False doesnt stop it.


pps - Oh yer... welcome to the board.
 

Forum statistics

Threads
1,085,563
Messages
5,384,447
Members
401,902
Latest member
lilytran14

Some videos you may like

This Week's Hot Topics

Top