Diagramm über Makro ausdrucken

In mühseliger Kleinarbeit ist es mir gelungen, Diagramme mit Makros von Controlbuttons gesteuert zu erzeugen. Nun möchte ich auf dem gleichen Weg auch die Diagramme ausdrucken. Dazu habe ich folgendes Makro aufgezeichnet und modifieziert:Sub Druckeinzel()
'
' Druckeinzel Makro
' Makro am 25.07.2002 von KLINTER aufgezeichnet
'

'
ActiveSheet.ChartObjects(2).Activate
ActiveChart.ChartArea.Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Wenn ich dieses Makro im Debugger in Einzelschritten abarbeite, funktioniert es einwandfrei.
Wenn ich es ablaufen lasse, wird ein insgesamt 6seitiger Ausdruck, der u.a. auch das Diagramm enthält, ausgedruckt.

Was läuft da falsch?

Danke Wolf-Dietrich