Aperçu avant Impression de la page active - VBA - WORD

bonjour,
j'aimerais afficher l'aperçu avant impression de la page active ;
côté page active, j'ai trouvé comment l'imprimer directement, mais pas avec aperçu préalable :
ActiveDocument.PrintOut Range:=wdPrintCurrentPage
côté aperçu, il y a PrintPreview, mais impossible d'y coller un argument
il me faudrait un mixte des deux, mais n'ai rien trouvé ;
auriez-vous une idée, svp ?
merci d'avance, et bonne soirée !

Bonjour,

Tu as juste à enregistrer une macro.

Et puis, si tu as une version récente, 2010 et après, sûrement, 2007, peut-être, tu as déjà le bouton que tu peux activer ou monter dans ta barre d'outils Accès rapide.

bonjour,
j'ai bien sur essayé les macros, mais sous word, l'enregistrement des macros n'est vraiment pas aussi performant que sous excel ;
quant au bouton dans la barre de menu, je voulais éviter :
1) si je l'ajoute "à la main", il faudrait que je le fasse sur tous les postes qui utiliseront ce doc ;
2) par programmation, je ne suis pas sur que ça soit facile en restant sous vba

je pensais plus à un bouton "flottant" qui resterait toujours à l'écran, qqsoit la page affichée (facile sous excel, un peu plus ardu sous word),
ou alors à un menu contextuel (clic droit)

je sais afficher l'aperçu (Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")), mais ensuite je ne sais pas comment modifier les options par vba ;
je crains qu'il ne faille passer par le xml, mais là ça sort de mes compétences actuelles ....

enfin, il y a bien la fenêtre de dialogue Application.Dialogs(wdDialogFilePrint), qui permet de positionner des options, mais ici pas d'apperçu ....

bon, j'ai trouvé une solution un peu bâtarde, mais qui fonctionne :

1- j'affiche l'aperçu avant impression
2- j'affiche la boite de dialogue impression, avec positionnement de l'option "page active"
3- je peux choisir d'imprimer ou non, avec en fenêtre de fond l'aperçu de la page active : je peux donc vérifier quelle page je vais imprimer ;
4- je reviens au mode d'affichage classique

ça donne ça :

Code:

---

1 2 3 4 5 6 7

Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint") With Application.Dialogs(wdDialogFilePrint) .Range = wdPrintCurrentPage .Show End With Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")

---

j'appelle ce code via le menu contextuel (personnalisé) après un clic droit sur la page à imprimer ;

(pour info, je suis sous office 2010)
en espérant que ça puisse servir à d'autres ...
mais si vous avez mieux, n'hésitez pas !!