Cette Macro bloc sur aperçu avant impression, Bug ou Logique ?

[Joëlle]

Bien le bonjours à vous tous

Bug de cette macro, je lui demande d’imprimer uniquement un graphe sans la page support.
La macro ce bloque sur la page aperçu avant impression et n’imprime le graphique seulement si je ferme l’aperçu avant impression.
Logique pour j’ai raté un truc ?


Sub Imprim_Graphique()
'
' Imprim_Graphique Macro
'
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Windows("Rebut Suivi JB UET 10.xls").Activate
Range("A13").Select

End Sub


Merci pour le temps passé sur ce sujet.

Joëlle

 

[Eric C]

Bonjour le forum
Bonjour Joëlle


Teste en enlevant la ligne ci-dessous qui active l'aperçu avant impression. Je ne peux pas tester car je n'ai plus d'imprimante reliée à mon PC.
ActiveWindow.SelectedSheets.PrintPreview

Bon week-end à toutes & à tous
@ ++ Eric C

 

[Joëlle]

Re bonjours à tous

Eric, Cela fonctionne tip top !

G merci pour ton aide et big bisous

Joëlle