fusszeile vor druck per Makro fuellen

08/12/2009 - 09:57 von Franklin Schiftan | Report spam
Hallo,

mit welchem Code kann ich vor dem Drucken einer Openoffice-Calc-
Tabelle den linken Fusszeilen-Abschnitt automatisch mit bestimmtem
Text befuellen?

Danke fuer alle hilfrechen Hinweise.


... und tschuess

Franklin
 

Lesen sie die antworten

#1 Peter Schleif
08/12/2009 - 12:46 | Warnen spam
Franklin Schiftan schrieb am 08.12.2009 09:57 Uhr:

mit welchem Code kann ich vor dem Drucken einer Openoffice-Calc-
Tabelle den linken Fusszeilen-Abschnitt automatisch mit bestimmtem
Text befuellen?



Sub LinkeFusszeile
Dim DefPage As Object
Dim HContent As Object

DefPage = ThisComponent.StyleFamilies. _
getByName("PageStyles").getByName("Default")
DefPage.FooterIsOn = True

HContent = DefPage.RightPageFooterContent
HContent.LeftText.String = "Fusszeile links"

DefPage.RightPageFooterContent = HContent
End Sub

Peter

Ähnliche fragen