Discussion :

[jasinskimathieu]

Bonjour à tous,

J'ai une feuille spécifique sur laquelle se trouve un bouton sur lequel une macro est affectée.

Cette macro doit imprimer les pages 1 à 6 de ma feuille TED Print (il y en en 25).

Voici le code de la macro utilisé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("TED Print").PrintOut From:=1, To:=6

Le souci, c'est que les 25 pages s'impriment.

Je ne suis pas doué un VBA, et pour autant dire je n'en fais jamais. Après plusieurs recherches, personne n'a eu le même souci que moi et j'ai donc l'impression d'être très loin (et à la fois si près, grâce à vous), de la solution.
Google ne m'ayant pas aidé suffisamment, j'espère que vous serez un meilleur ami que lui.

Merci,

Mathieu

[Zekraoui_Jakani]

Pour être sûr d'avoir compris :
Vous avez une feuille nommée "Ted Print"
Si vous l'imprimez normalement, vous obtiendrez 25 pages
Or vous n'en voulez que les 6 premières pages.

Intuitivement, pourquoi est-ce que vous ne figez pas votre zone d'impression (Page layout / Print Area) aux 6 pages, puis lancez la commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("TED Print").PrintOut

[jasinskimathieu]

Bonjour,

En fait, j'ai d'autres boutons qui servent à imprimer d'autres pages de cette feuille.

Merci

[Zekraoui_Jakani]

Vous pouvez définir plusieurs zones d'impression via "range/Name", puis créer une boucle définissant la zone d'impression basée, à tour de rôle, sur le range name défini.
example:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveSheet.PageSetup.printArea = "$A$1:$N$21" 'puis instruction pour imprimer cette zone
ActiveSheet.PageSetup.printArea = "$A$23:$N$42" 'puis instruction pour imprimer la 2ème zone, et ainsi de suite
'Il ya moins de faire plus élaboré, mais ceci dépanne !