Am 2022-11-27 um 15:39 schrieb Gerhard Weydt:
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
Prima, danke! Funktioniert mit der vorstehenden Zeile! Die nachstehende war ja eh schon drin.
oSeitenFormat.FooterIsShared = TRUE Gruß Gerhard, um den Eintrag zu sehen. Oder die Druckvorschau verwenden. Gruß Gerhard.... und tschüss FranklinAm 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