Am 2022-11-27 um 13:54 schrieb Gerhard Weydt:
Hallo Franklin,
bei mir läuft das Makro einwandfrei in 7.4.3.2.
Danke fürs Testen!
Am Code fehlt also nichts. Liegt es vielleicht daran, dass du
RightPageFooterContent setzt?
Nö. Hatte bislang auch immer einwandfrei funktioniert ...
Wenn du da in Format > Seitenvorlage > Fußzeile > Bearbeiten gehst,
musst du auf den Reiter "Fußzeile (weitere)", um den Eintrag zu
sehen.
O.k., danke für den Hinweis, dort sehe ich den Eintrag auch wie
gewünscht drin stehen ....
Oder die Druckvorschau verwenden.
... nur in der Druckvorschau und im Ausdruck leider nicht.
Wodran könnte das wohl liegen?
Gruß Gerhard
.... und tschüss
Franklin
Am 27.11.2022 um 09:56 schrieb Franklin Schiftan:
REM ***** BASIC *****
Sub FusszeileSetzen
IF NOT ThisComponent.supportsService (
"com.sun.star.sheet.SpreadsheetDocument" ) then exit Sub
DIM OFormatFamilien as Object, oSeitenFormate as Object DIM
oSeitenFormat as Object, oFT as Object, oText as Object
oFormatFamilien = ThisComponent.StyleFamilies oSeitenFormate =
oFormatFamilien.getByName("PageStyles") oSeitenFormat =
oSeitenFormate.getByName("Default") oSeitenFormat.FooterIsOn = True
oSeitenFormat.FooterIsShared = true 'beide Seiten sind gleich oFT
= oSeitenFormat.rightPageFooterContent 'FooterText Objekt
' oText = oFT.CenterText 'Mittleres Textobjekt oText =
oFT.RightText 'Rechtes Textobjekt
oText.setstring(format( now(), "yyyy-mm-dd"))
oSeitenFormat.rightPageFooterContent = oFT
End Sub
--
Liste abmelden mit E-Mail an: users+unsubscr...@de.libreoffice.org
Probleme?
https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy
