Seitenzahl in Calc

[msxport]

Hallo,
wie kann ich die Seitenzahl im Kopf einer mehrseitigen Calc-Tabelle mit OOoBasic eintragen?

Vorhandener Codeausschnitt:

Code: Alles auswählen

oDoc = ThisComponent
oStyleFamilies = oDoc.StyleFamilies   
oPageStyles = oStyleFamilies.getByName("PageStyles")
oDefPage = oPageStyles.getByName("Standard") 
'Kopf/Fusszeile aktivieren/deaktivieren
oDefPage.HeaderIsOn = True
oDefPage.FooterIsOn = False
'Linke und rechte Seite verschieden 
oDefPage.HeaderIsShared = True
'Daten Kopfzeile
oHContent = oDefPage.RightPageHeaderContent
oHContent.RightText.String = "Datum: " & DATE & Chr(13) & "Seite: " &     ?? Seitennummer ??
oHContent.LeftText.String = "Testzeile" & Chr(13)
oHContent.CenterText.String = ""
oDefPage.RightPageHeaderContent = oHcontent  
'Ausrichtung, Ränder
oDefPage.IsLandScape = True 
oDefPage.Width = 29700 
oDefPage.Height = 21000 
oDefPage.LeftMargin = 2000
oDefPage.RightMargin = 2000
oDefPage.TopMargin = 1200
oDefPage.BottomMargin = 1500
oDefPage.HeaderBodyDistance = 600
 

Gruß

[komma4]

Willkommen im Forum

wie kann ich die Seitenzahl im Kopf einer mehrseitigen Calc-Tabelle mit OOoBasic eintragen?

Du brauchst ein Textfeld

Code: Alles auswählen

oPageNumber = oDokument.createInstance( "com.sun.star.text.TextField.PageNumber" ) 

welches dann mit insertTextContent eingesetzt wird

Steht doch schon im Code, aus dem Du Deinen zusammengesetzt hast
setHeaderFooter

[msxport]

Hallo,
hat funktioniert, vielen Dank.
Gruß