Anzahl gedruckter Seiten ermitteln

[toni007]

Hallo zusammen,

ich exportiere ein Calc-Sheet ins PDF. In diesem Dokument soll nun u. a. der Satz

Diese Dokument besteht aus 12 Seiten.

stehen.

Die Anzahl der Seiten ist natürlich variabel.
Gibt es im Basic eine Funktion, die mir die Anzahl der gedruckten Seiten liefert? In VBA ging das mal...


Gruß

Thomas

[Koto]

Hallo alleine,
kennst du die Seite
http://www.dannenhoefer.de/faqstarbasic ... lesen.html
vielleicht findest du da was.

[F3K Total]

Moin,
da brauchst Du kein Makro, es reicht die Kopfzeile entsprechend anzupassen.
Format/Seite/Kopfzeile/Bearbeiten ... ->
Dann gibst du folgendes links, mitte oder rechts ein

• Dieses Dokument besteht aus plus ein Leerzeichen
• ein Klick auf

  

  Seiten.png (2.17 KiB) 4438 mal betrachtet

• Leerzeichen Seiten
• fertig

Gruß R

[toni007]

Das hilft mir leider so noch nicht weiter.
Der Text 'Dieses Dokument besteht aus xx Seiten.' soll nicht in der Kopf- oder Fußzeile jeder Seite erscheinen, sondern nur an einer bestimmten Stelle innerhalb des Dokuments. Aber der Ansatz könnte schon richtig sein. Nur wie heißt dieses Objekt / Eigenschaft in der die Gesamtzahl der gedruckten Seiten enthalten ist?


Gruß

Thomas

[toni007]

Ich komme der Lösung wohl etwas näher:
mit

Code: Alles auswählen

....rightPageHeaderContent.CenterText.String

erhalte ich nun schon mal '1 von 99'. Die 99 ist allerdings nicht die korrekte Anzahl meiner Druckseiten, sondern wohl nur ein Platzhalter. Die Eigenschaft für die konkrete Gesamt-Seitenzahl finde ich (xray) nicht. Vielleicht ist das auch der falsche Ansatz.

Gruß

Thomas

[toni007]

In VBA konnte ich das früher übrigens so lösen:

Code: Alles auswählen

anzSeiten = ExecuteExcel4Macro("Get.Document(50)")

In 'anzSeiten' steht die Gesamtseitenzahl der gedruckten Tabelle. Die Variable konnte ich dann an beliebiger Stelle im Dokument nutzen. Gibt es in LO etwas vergleichbares?

Gruß

Thomas

[F3K Total]

Hi,
war eine längere Suche, dank Villeroy aus dem englischen Forum, habe ich eine Lösung:

Code: Alles auswählen

Sub S_get_page_number
    nPagenumber = thiscomponent.getRendererCount(thiscomponent, Array())
    msgbox "Seitenzahl des ganzen Dokumentes: "+nPagenumber
end sub

Gruß R