connaître le total de pages à imprimerRésolu

Question

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

korgis · Answer

Salut,

Workbook.Worksheets.Count 
te donne le nombre de feuilles du classeur.

cs_sagitarius · Answer

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

korgis · Answer

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).

cs_sagitarius · Answer

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

Connaître le total de pages à imprimer

4 réponses

Votre réponse