Sub PrintEmbeddedChartsinWORKSHEET()
'Prints all embedded worksheets that are on the active worksheet
'
Dim ChartList As Integer
Dim X As Integer
ChartList = ActiveSheet.ChartObjects.Count
For X = 1 To ChartList
ActiveSheet.ChartObjects(X).Select
ActiveSheet.ChartObjects(X).Activate
ActiveChart.PrintOut Copies:=1
Next
End Sub