OVH Cloud OVH Cloud

Compter les pages à imprimer en VBA

1 réponse
Avatar
Michel41
Bonsoir

.VPageBreaks.Count

donne le nombre de césures mais il donne 1 aussi bien pour 1 page incomplète
que pour 2, la seconde étant incomplète.

Comment calculer le nombre exacte de pages qui vont être imprimées ?

Merci.@+

M41

1 réponse

Avatar
MichDenis
Bonsoir Michel41,

Une des 2 lignes de code :


MsgBox ActiveWindow.SelectedSheets.HPageBreaks.Count + 1

MsgBox ExecuteExcel4Macro("GET.DOCUMENT(50)") & " page(s) à imprimer."


Salutations!


"Michel41" a écrit dans le message de news: 42700de8$0$1215$
Bonsoir

.VPageBreaks.Count

donne le nombre de césures mais il donne 1 aussi bien pour 1 page incomplète
que pour 2, la seconde étant incomplète.

Comment calculer le nombre exacte de pages qui vont être imprimées ?

Merci.@+

M41