fox_mulder
XLDnaute Nouveau
Bonjour,
Nouveau sur ce forum, et "débutant" en matière de macro :
1- Vous m'excuserez si ce message est déjà traité, mais à priori j'ai pas su le trouvé si c'est le cas.
2 -Alors voila ce que je désire :
je suis en train faire une macro pour imprimer des zones d'une feuille dont les lignes sont affichées selon le choix d'une liste déroulante et d'une case à cocher ( mais ce n'est pas cela l'important)
dans la macro pr l'impression, je voudrais :
a/ spécifier la zone d'une part,
b/ régler le "zoom" de la feuille d'autre part,
c/ régler les sauts de page dans chaque zone d'impression et enfin,
d/ avoir l'aperçu avant d'imprimer.
Pour le a/ : je crois savoir comment faire : par exemple de la cellule D1 à M21
ActiveSheet.PageSetup.PrintArea = "$D$1:$M$121"
comment je fais si la zone à imprimer est en 2 morceaux non adjacent ? ex :de la cellule D1 à M5 et de D128 à M 242 :
ActiveSheet.PageSetup.PrintArea = "$D$1:$M$121" And "$D$128:$M$242"
pour le b/ : je ne sais pas faire ( ) :exemple je voudrais imprimer la zone réduite à 90% de sa taille normale
pour le c/ : je sais pas faire non plus
pour le d/ : je pense finir par :
Application.Dialogs(xlDialogPrint).Show , , , 1
Voilà mes attentes et mes questions ...
Quelqu'un peut-il m'aider ...svp
Merci d'avance
Fox M.
Nouveau sur ce forum, et "débutant" en matière de macro :
1- Vous m'excuserez si ce message est déjà traité, mais à priori j'ai pas su le trouvé si c'est le cas.
2 -Alors voila ce que je désire :
je suis en train faire une macro pour imprimer des zones d'une feuille dont les lignes sont affichées selon le choix d'une liste déroulante et d'une case à cocher ( mais ce n'est pas cela l'important)
dans la macro pr l'impression, je voudrais :
a/ spécifier la zone d'une part,
b/ régler le "zoom" de la feuille d'autre part,
c/ régler les sauts de page dans chaque zone d'impression et enfin,
d/ avoir l'aperçu avant d'imprimer.
Pour le a/ : je crois savoir comment faire : par exemple de la cellule D1 à M21
ActiveSheet.PageSetup.PrintArea = "$D$1:$M$121"
comment je fais si la zone à imprimer est en 2 morceaux non adjacent ? ex :de la cellule D1 à M5 et de D128 à M 242 :
ActiveSheet.PageSetup.PrintArea = "$D$1:$M$121" And "$D$128:$M$242"
pour le b/ : je ne sais pas faire ( ) :exemple je voudrais imprimer la zone réduite à 90% de sa taille normale
pour le c/ : je sais pas faire non plus
pour le d/ : je pense finir par :
Application.Dialogs(xlDialogPrint).Show , , , 1
Voilà mes attentes et mes questions ...
Quelqu'un peut-il m'aider ...svp
Merci d'avance
Fox M.