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

[Grizlore]

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]

This maybe:

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

 

[Grizlore]

ummm... not sure why, but your code just prints the "data" tab. Whether i put <> or = "data"

very strange

 

[FormR]

How about:

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

 

[Grizlore]

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.