Connaître le total de pages à imprimer [Résolu]

Signaler
-
 Utilisateur anonyme -
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

Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
16
Salut,

Workbook.Worksheets.Count

te donne le nombre de feuilles du classeur.

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
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
16
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).

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 !!!!