Connaître le total de pages à imprimer

Résolu
Utilisateur anonyme - 27 juil. 2018 à 17:08
 Utilisateur anonyme - 30 juil. 2018 à 16:46
bonjour à tous;
je pilotes Excel depuis Delphi et j'aimerai connaître le nombre de feuilles à imprimer avant de lancer l'impression.
En vous remercient d'avance pour votre aide

4 réponses

korgis Messages postés 420 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 6 mai 2019 17
29 juil. 2018 à 14:45
Salut,

Workbook.Worksheets.Count

te donne le nombre de feuilles du classeur.
0
Utilisateur anonyme
29 juil. 2018 à 22:56
bonsoir Korgis;
Merci pour ta réponse,
je connais, merci
mais, c'est pas ce la réponse que je recherche, encore et toujours...
Une feuille excel, comme tu le sais, peut contenir plusieurs pages..
je voudrais réafficher le nombre de pages à imprimer:
exemple:
Label1.Caption:= 'Nombre total de pages à imprimer: +IntToStr(totalPages);
Merci et bon codding
0
korgis Messages postés 420 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 6 mai 2019 17
Modifié le 30 juil. 2018 à 02:39
Ah, ok, compris...

Peut-être alors un truc dans le genre :

PagesCount := (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)

On multiplie les sauts de page verticaux par les sauts de page horizontaux, sans oublier d'ajouter 1 puisque les sauts de pages sont des intervalles entre deux pages (il y a donc toujours 1 page de plus que de saut de page).

0
Ooooooouuuuuuuiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii !!!!!!!!!!
Merci à toi Korgis,
j'avais pourtant essayé mais j'avais mis:
activeSheet.HPageBreaks.Count;
je n'avais pas mis le ...+1;
pourquoi +1 ?????

PagesCount := (ActiveSheet.HPageBreaks.Count + 1) et c'est tout !!! ça marche aussi;
merci à toi, !!!
j'étais pas loin mais j'ai réussi grâce à ton aide
Mille merci à toi !!!!
bon codding !!!!
0