Seite 1 von 1

Anzahl gedruckter Seiten ermitteln

Verfasst: Fr 29. Nov 2013, 10:00
von 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

Re: Anzahl gedruckter Seiten ermitteln

Verfasst: Fr 29. Nov 2013, 14:59
von Koto
Hallo alleine,
kennst du die Seite
http://www.dannenhoefer.de/faqstarbasic ... lesen.html
vielleicht findest du da was.

Re: Anzahl gedruckter Seiten ermitteln

Verfasst: Fr 29. Nov 2013, 18:03
von 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
    Seiten.png (2.17 KiB) 4446 mal betrachtet
  • Leerzeichen Seiten
  • fertig
Gruß R

Re: Anzahl gedruckter Seiten ermitteln

Verfasst: Mo 2. Dez 2013, 08:58
von 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

Re: Anzahl gedruckter Seiten ermitteln

Verfasst: Mo 2. Dez 2013, 09:37
von 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

Re: Anzahl gedruckter Seiten ermitteln

Verfasst: Mo 2. Dez 2013, 10:17
von 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

Re: Anzahl gedruckter Seiten ermitteln

Verfasst: Di 3. Dez 2013, 21:18
von 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