Imprimer graphique

[nicolas]

Bonjour à vous tous sur ce forum.

Je bute sur un petit probleme:
J'affiche dans ma userform-multipage un graphique par code VBA. J'ai créé un bouton Print pour pouvoir l'imprimer. Mais il ne marche pas ... Il ne s'affiche aucun message d'erreur, mais rien ne se passe...
Voila la commande que j'ai écrite:

Private Sub CBPrint_Click()

Dim objcht As ChartObject
Dim cht4 As Chart
For Each objcht In ActiveSheet.ChartObjects
Set cht4 = objcht.Chart
'Debug.Print cht4.Name, objcht.Name
cht4.PrintOut
Next

End Sub

Merci pour vos suggestions.

Nicolas

 

[nicolas]

J'ai fait une erreur en recopiant le programme, c'est:

Private Sub CBPrint_Click()

Dim objcht As ChartObject
Dim cht4 As Chart
For Each objcht In ActiveSheet.ChartObjects
Set cht4 = objcht.Chart
Debug.Print cht4.Name, objcht.Name

Next

End Sub