A different approach...

Sub PrintCharts()
Dim chtObj As Excel.ChartObject
For Each chtObj In ActiveSheet.ChartObjects
chtObj.Chart.PrintOut
Next
Set chtObj = Nothing
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)



"Chuck M"
wrote in message
Hi,
I have a worksheet that can contain anywhere from 22 to 40 embedded charts.
I am trying to create code that sets non contiguous <sp print ranges so that
each chart will print on it's own page. Each chart is 51R x 22C. When the
length of the print range string I've built exceeds 255 characters I get a RT
1004 error "Unable to set the PrintArea property....". Does anyone know of a
way around this limitation or suggest an alternative way to accomplish the
task?
--
TIA
Chuck M.