LibreOffice-Forum

Hallo,

ich bitte um Hilfe bei folgendem Problem:

Wir haben ein doppelseitiges Protokoll-Buch, welches über viele Jahre fortgeschrieben wurde.
In diesem Buch wurde ein laufender Zählstempel angebracht und das Buch danach gebunden.
Bis jetzt hat unser Drucksystem das Aufbringen eines Zählstempels beherrscht.
Unsere neuen Drucker können das leider nicht mehr.

Dieses Buch besteht aus zwei statischen Seiten.
Auf der Rückseite von Seite 2 befindet sich wieder die Seite 1 mit den um 1 erhöhtem
Zählstempel und so weiter. (siehe Beispiel unten wäre das dann 1251)
Auf der ersten Seite soll zum Druck- Zeitpunkt eine fortlaufende Nummer eingedruckt werden.
Dabei ist wichtig, dass ich beim Drucken angeben kann mit welcher Nummer zu beginnen ist
und wie viele Doppelseiten zu Drucken sind.
Die beiden Formulare sollten im Dokument jeweils nur einmal vorhanden sein, da diese sich
von Zeit zu Zeit ändern.

Code: Alles auswählen

 |--------------------------------------|          |--------------------------------------|
 |          fortlaufende Nr. 1250       |          |                                      |
 |                                      |          |                                      |
 |        Protokoll-Buch                |          |                                      |
 |                                      |          |                                      |
 | statische Seite 1                    |          | statische Seite 2                    |
 |                                      |          |                                      |
 |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|          |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|

Danke für jeden Input

Hi,
es hat mich interessiert, ich konnte das per Makro lösen, hier das Ergebnis:

StatischeSeiten.odt: (12.05 KiB) 385-mal heruntergeladen

Hier das Makro, ist in der Datei schon enthalten, startet automatisch beim Öffnen, wenn Du u.a. Einstellung vorgenommen hast.

Code: Alles auswählen

Sub s_Create_static_Pages
    dim nStart as Integer
    dim nAmount as Integer
    DialogLibraries.loadLibrary("Standard")
    odlgNumbers = CreateUnoDialog(DialogLibraries.Standard.dlgNumbers)
    odlgNumbers.execute
    otxtStart = odlgNumbers.getcontrol("txtStart")
    otxtAmount = odlgNumbers.getcontrol("txtAmount")
    nStart = otxtStart.Text
    nAmount = otxtAmount.Text
    thiscomponent.lockcontrollers
    oText = thiscomponent.text
    oTextCursor = oText.createtextcursor
    for i = nStart to nstart + nAmount - 1
        for k = 0 to 1
              oTextCursor.string = i
              oTextCursor.gotoend(false)
              if i =  nstart + nAmount - 1 AND k = 1 then exit for
              oTextCursor.breaktype = 5
              oText.insertControlCharacter(oTextCursor, com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False)
              oTextCursor.gotoend(false)
        next k
    next i
    thiscomponent.unlockcontrollers
End Sub

Damit das Makro läuft, stellst Du vor dem Öffnen des Dokumentes unter Extras/Optionen/Openoffice.org oder LibreOffice.org/Sicherheit/Makrosicherheit die Stufe "Mittel" ein. So wirst du, beim Öffnen von Dokumenten, gefragt, ob du Makros ausführen möchtest.
Ich habe es eben mit 4000 Doppelseiten probiert, das Erstellen dauerte weniger als 60 Sekunden.
Danach kannst Du die Datei einfach drucken, nicht speichern! Wenn, dann Speichern unter, sonst fehlt Dir beim zweiten Mal ein unbenutzes Startdokument.

Viel Erfolg

Danke

für die Antwort, ich werde das morgen gleich mal ausprobieren.

Das Makro hab ich mir gleich ansehen können.

Super super super und nochmals Danke!

Wie sich das ganze mit unserem Formular und dem Drucker verträgt,
kann ich erst morgen probieren.

Hi,

F3K Total hat geschrieben:... nicht speichern! Wenn, dann Speichern unter, sonst fehlt Dir beim zweiten Mal ein unbenutzes Startdokument.

Das kannst Du auch umgehen, indem Du aus der Datei eine Dokumentvorlage machst.
Einfach in StatischeSeiten.ott umbenennen.
Gruß R

Hallo,

das Makro ist klasse! Leider bekomme ich es nicht hin, dass Die fortlaufende Nummerierung nur auf einer Einzelseite - also keine Doppelseite - hochzählt. Könnte mir da jemand weiterhelfen, wie ich das Makro anpassen muss?

VG Babylonier

LibreOffice-Forum

statisches Formular mit fortlaufender Nummerierung

statisches Formular mit fortlaufender Nummerierung

Re: statisches Formular mit fortlaufender Nummerierung

Re: statisches Formular mit fortlaufender Nummerierung

Re: statisches Formular mit fortlaufender Nummerierung

Re: statisches Formular mit fortlaufender Nummerierung

Re: statisches Formular mit fortlaufender Nummerierung