Connaitre le nombre de pages à imprimer

[Blafi]

Bonsoir à tous,

Malgré mes recherches je ne trouve pas la solution à mon problème :

Je veux faire imprimer à un utilisateur une feuille de mon fichier en le faisant cliquer sur un bouton déclenchant la macro d'impression.
Avant de lancer l'impression, l'utilisateur doit connaitre le nombres de pages à imprimer afin de mettre le nombre de feuilles (d'étiquettes) nécessaire dans l'imprimante. J'ai donc imaginé de lui envoyer un message par boite de dialogue lui disant "introduisez x pages dans l'imprimante et cliquez OK";

Mon problème est de savoir comment trouver le nombre de pages (en VBA) que je dois indiquer dans le message: J'ai donc besoin d'un genre de "pages_à_imprimer.count" mais je ne trouve pas une telle commande dans VBA...

Merci de votre aide et à bientôt.

 

[Blafi]

Re : Connaitre le nombre de pages à imprimer

Re,

Finalement j'ai réussi à trouver la solution :

MsgBox (ActiveSheet.HPageBreaks.Count + 1)

et ça marche...

Merci quand même à ceux qui s'appraitaient à me répondre...

A++

 

[BOISGONTIER]

Re : Connaitre le nombre de pages à imprimer

Bonjour,

Nb pages imprimer

NbPages = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)

JB

 

[Blafi]

Re : Connaitre le nombre de pages à imprimer

Bojour,

Merci Boisgontier pour cette précision (VPageBreaks) qui concerne, je pense, le nombre de pages en largeur mais comme je n'en ai qu'une, le HPageBreaks me suffisait....
Je retiens cependant la formule..
A++