OVH Cloud OVH Cloud

Impression et aperçu, en VBA

4 réponses
Avatar
Anne
Bonjour,

J'ai un probl=E8me avec la commande FilePrint.

Dans une macro, j'ai =E9crit la ligne suivante:
FilePrint FromDate:=3DDate, ToDate:=3DDateFinImpression, preview:=3DTrue

L'aper=E7u s'ouvre, et il reprend bien la plage de dates que j'ai
demand=E9. Mais ensuite, si je demande Imprimer =E0 partir de cet
aper=E7u, les dates pr=E9s=E9lectionn=E9es pour la plage de dates ne sont
pas les m=EAmes... (elles correspondent plut=F4t aux derni=E8res dates
entr=E9es lors d'impressions pr=E9c=E9dentes)

Bien-s=FBr, si ma macro n'impose pas d'aper=E7u (FilePrint
FromDate:=3DDate, ToDate:=3DDateFinImpression), l'impression correspond
alors =E0 la plage de dates demand=E9e. Mais ce n'est pas ce que je
souhaite faire.

Comment pourrais-je imposer par macro la plage de dates, montrer un
aper=E7u, et attendre "l'accord" de l'utilisateur avant de lancer
l'impression?

Merci d'avance.

4 réponses

Avatar
Jan De Messemaeker
Bonjour Anne,

(Je devrais écrire -Jour Anne, car les nouvelles ne sont pas bonnes)
Ceci est un de mes cauchemars car en plus du problème que tu cites, cela
réagit différemment de version en version (mais jamais bien)

Donc avant de me lancer dans de sombres entourloupes peux-tu me dire quelle
est la version de ton Project?

Bien à toi,


--
Jan De Messemaeker, Microsoft Project Most Valuable Professional
http://users.online.be/prom-ade/
For FAQs: http://www.mvps.org/project/faqs.htm
"Anne" schreef in bericht
news:
Bonjour,

J'ai un problème avec la commande FilePrint.

Dans une macro, j'ai écrit la ligne suivante:
FilePrint FromDate:Úte, ToDate:ÚteFinImpression, preview:=True

L'aperçu s'ouvre, et il reprend bien la plage de dates que j'ai
demandé. Mais ensuite, si je demande Imprimer à partir de cet
aperçu, les dates présélectionnées pour la plage de dates ne sont
pas les mêmes... (elles correspondent plutôt aux dernières dates
entrées lors d'impressions précédentes)

Bien-sûr, si ma macro n'impose pas d'aperçu (FilePrint
FromDate:Úte, ToDate:ÚteFinImpression), l'impression correspond
alors à la plage de dates demandée. Mais ce n'est pas ce que je
souhaite faire.

Comment pourrais-je imposer par macro la plage de dates, montrer un
aperçu, et attendre "l'accord" de l'utilisateur avant de lancer
l'impression?

Merci d'avance.
Avatar
Anne
Aïe, je crains le pire alors!
Ma version est : MS Project Standard 2002.
Avatar
Jan De Messemaeker
Anne,

Zut, je viens d'installer 2003 au-dessus de 2002, je ne sais pas tester la
méthode que j'ai trouvé pour que cela soit parfait en 2003

Essayons quand-même.

D'abordn, regardes sur un aperçu quel est la combinaison de keystrokes qui
ferme un aperçu: en Anglais c'est Ctrl+C; si c'est un autre caractère ti
dois remplacer le C dans les instructions suivantes.
Tu fais précéder ton instruction FilePrint par

SendKeys "^C"
FilePrintPreview

En fait, le sendkeys fait que le printpreview s'ouvre et se ferme de suite.
Mais comme il s'agit debarttre un bug, rien n'est sur. Tu peux une fois
essayer...

Bien à toi,

--
Jan De Messemaeker, Microsoft Project Most Valuable Professional
http://users.online.be/prom-ade/
For FAQs: http://www.mvps.org/project/faqs.htm
"Anne" schreef in bericht
news:
Aïe, je crains le pire alors!
Ma version est : MS Project Standard 2002.
Avatar
Anne
En français, c'est Ctrl+F pour fermer.
ça fonctionne : l'aperçu s'ouvre et se ferme immédiatement.
Mais désolée, je ne vois pas vraiment comment cela peut résoudre mon
problème...

Et y a-t-il un moyen de faire apparaître un msgbox en gardant
l'aperçu en arrière-plan? (actuellement, si je fais un msgbox il
n'apparaît qu'à la fermeture de l'aperçu).