Erreur 1004 avec Selection.PrintOut

[elsmador]

Bonjour,

Je souhaite imprimer un listing en VBA sous Excel 2010.

Si en fin de macro, j'écris ce qui suit, la macro fonctionne et lance l'impression, mais au listing s'ajoute plusieurs feuilles blanches :

Range("A1").Select
ActiveCell.CurrentRegion.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

Par contre, en utilisant l'enregistreur et en choisissant d'imprimer que la zone sélectionnée, j'obtiens le code qui suit, et qui ne fonctionne pas si je l'exécute (erreur d'exécution 1004) :

Range("A1").Select
ActiveCell.CurrentRegion.Select
Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

Sauriez-vous me dire ce qui pose problème ?

Merci

 

[camarchepas]

Re : Erreur 1004 avec Selection.PrintOut

Bonjour ,

Comme ceci cela fonctionne , à condition bien sur que la zone à imprimée débute bien en A1

Sub test()
  Range("A1").Select
  ActiveCell.CurrentRegion.Select
  Selection.PrintOut Copies:=1, Collate:=True
End Sub

 

[elsmador]

Re : Erreur 1004 avec Selection.PrintOut

Rahlàlà, j'en ai passé du temps pourtant... Et finalement en enlevant "IgnorePrintAreas:=False", tout fonctionne correctement ! Un peu étrange du coup que l'enregistreur d'Excel l'est généré tel quel... M'enfin ça marche. Merci camarchepas !