Re: [de-users] Re: Makro wird nicht mehr ausgeführt - ergänzt

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