|
Bonjour, bonjour,
Encore un nouvel écueil, voilà je fais des styles
de page sous calc que j'applique à volonté sur mes XX feuilles, en fait je crée
des styles de feuilles personnalisés selon les feuilles que j'ai (soit des
tableaux où et des diagrammes avec ). Je souhaite entre autre insérer dans mes
en-têtes mes numéros de page automatiquement et la quantité de pages de
l'ensemble de ma feuille calc.
Je coince sur cette numérotation
automatique;
Voici le début de ma macro, comment donc forcer
l'apparition de cette numérotation de pages ?
Clas=ThisComponent
Feuils=Clas.Sheets Feuil=Clas.CurrentController.ActiveSheet Dim Familles As Object Familles=Clas.StyleFamilies Dim PageF As Object PageF=Familles.GetByName("PageStyles") Dim NouvS As Object NouvS=Clas.CreateInstance("com.sun.star.style.PageStyle") T2="JC A4 Paysage_" & Feuil.Name If PageF.HasByName(T2)=True Then PageF.RemoveByName(T2) PageF.InsertByName(T2,NouvS) Dim HText As Object Dim HContent As Object With PageF.GetbyName(T2) .IsLandscape = True .Width = 29700 .Height = 21000 .LeftMargin = 1000 .RightMargin = 1000 .TopMargin=1500 .BottomMargin=1500 .CenterHorizontally=True .CenterVertically=True .ScaleToPages=1 .PrintGrid=True .PrintHeaders=False .FooterOn=False .HeaderOn=True .HeaderIsShared=True .HeaderHeight=300 HContent = .RightPageHeaderContent HContent.LeftText.String = "Page N°" ' numérotation de page ? et quantité de pages ? ' je souhaite obtenir ici num de page/Quant de page HContent.CenterText.String = Feuil.GetCellRangeByName("B3").Formula HContent.RightText.String = Now .RightPageHeaderContent = HContent .ScaleToPages=0 End With |
