Date: prev next · Thread: first prev next last
2022 Archives by date, by thread · List index


Hallo Franklin,

Am 27.11.2022 um 14:35 schrieb Franklin Schiftan:
Am 2022-11-27 um 13:54 schrieb Gerhard Weydt:
Hallo Franklin,

bei mir läuft das Makro einwandfrei in 7.4.3.2. Am Code fehlt also
nichts. Liegt es vielleicht daran, dass du RightPageFooterContent
setzt? Wenn du da in Format > Seitenvorlage > Fußzeile > Bearbeiten
gehst, musst du auf den Reiter "Fußzeile (weitere)"

Ergänzend zu meiner anderen Antwort stellt sich mir die Frage, warum es
nicht auch unter 'Fußzeile (erste)' so erscheint ... möglicherweise
würde es dann ja auch in der Druckvorschau und im Ausdruck wieder
erscheinen....

[kurze Zeit später]
Ich habe testweise mal eine zweite Seite erzeugt - und siehe da, dort
erscheint der Eintrag wie gewünscht.

Die Frage muss nun also lauten: Was muss ggf. im Makro geändert werden,
damit das Datum nicht nur auf den weiteren, sondern auch auf der ersten
Seite erscheint?

[Ergänzung]
Wenn ich im Dialog ankreuze, dass der gleiche Inhalt auch auf der ersten
Seite erscheinen soll, klappt es wie gewünscht.

Welcher Befehl muss also im Makro ergänzt werden, um diese Option
darüber auch einzuschalten?
    oSeitenFormat.firstPageFooterIsShared = TRUE
    oSeitenFormat.FooterIsShared = TRUE

Gruß
Gerhard

, um den Eintrag zu sehen. Oder die Druckvorschau verwenden.

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




--
Liebe Grüße
Franklin




--
Liste abmelden mit E-Mail an: users+unsubscribe@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

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.