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