Relance 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
Next

End Sub

Merci pour vos suggestions.

Nicolas

 

[Zon]

Salut,

Debug.Print sert juste à afficher des infos dans la fenêtre Exécution. Une solution pour imprimer graphique par graphique est de faire un copier coller du graphique dans une feuille vierge et d'imprimer la feuille.

Dim cht4 As Chart
For Each objcht In ActiveSheet.ChartObjects
Set cht4 = objcht.Chart
cht4.CopyPicture xlPrinter
with sheets("lenomdelafeuillevierge")
.Paste
.PrintOut
.Shapes(1).Delete
End With
Next

A+++