[gelöst] Nummer des Exemplars per Feldbefehl automatisieren?

[Pit Zyclade]

Ich möcht die Exemplarnummer eines Dokuments automatisch fortzählen (und dann in der Kopf- oder Fußzeile ausdrucken).
Welchen Feldbefehl kann man dafür verwenden, mißbrauchen oder neu einführen??

Statistik->Objekte ist irreführend und dafür nicht zu gebrauchen.
Die eigene Einführung einer neuen Variablen mit der gekoppelten Eigenschaft eines fortlaufend Zählers des Drucks ist mir nicht gelungen...

Danke für Tip(p)s

[F3K Total]

Moin,
es gibt den Feldbefehl Versionsnummer, der bei jedem Speichern einer veränderten Datei um eins erhöht wird.
Menü Einfügen/Feldbefehl/weitere Feldbefehle.../Reiter Dokumentinfo -> Versionsnummer

Gruß R

[Pit Zyclade]

Ja, das kannte ich. Aber leider erhöht sich diese nicht bei einem mehrfachen Druck (von alleine).
Wenn ich aber jeweils einen Zwischenschritt machen muß, kann ich auch händisch die Zahl erhöhen.
Ich suche nach einer (verflixten) Lösung, das Problem zu automatisieren.

[Pit Zyclade]

Ich glaube, dass der Zusammenhang von Dokument und Anzahl der Drucke sich nicht über einen einfachen Feldbefehl realisieren läßt.
ABER es muß gehen, wenn man einen Serienbrief in Erwägung zieht. Damit kann man die Zahl der Drucke auch gleich limitieren und eine fortlaufende Nummerierung läßt sich mit einer externen Steuerungsdatei problemlos vorbereiten.

Wenn niemand einen besseren Vorschlag hat, formatiere ich morgen dieses Thema als [gelöst]

[F3K Total]

Moin,

• lege unter Menü Datei/Eigenschaften.../Reiter Benutzerdefinierte Eigenschaften eine Exemplarnummer vom Typ Zahl mit dem Wert 0 an.
• Füge über Menü Einfügen/Feldbefehl/andere.../Reiter Dokumentinfo->Benutzerdefiniert ausklappen, diese Zahl an die Stelle in deinem Dokument ein, an der du sie benötigst
• speichere folgendes kurzes Makro:

  Code: Alles auswählen

  sub count_Prints(oEvent)
      if oEvent.EventName = "OnPrint" AND (oevent.Supplement = 0 OR Isempty(oevent.Supplement)) Then
          nCount = ThisComponent.DocumentProperties.UserDefinedProperties.Exemplarnummer + 1
          ThisComponent.DocumentProperties.UserDefinedProperties.Exemplarnummer = nCount
      endif
  end sub

  im Dokument oder unter meine Makros ab.
• Binde das Makro unter Extras/Anpassen... Reiter Ereignisse an das Ereignis Dokument drucken

Wenn du nun das Dokument jeweils einzeln ausdruckst wird der Zähler vor dem Druck um eines erhöht.

Willst du mehrere Exemplare in einem Vorgang drucken, ist die Idee mit dem Serienbrief aus meiner Sicht die bessere.

Beispiel für "Einzeldruck" anbei.

Gruß R

EDIT:Marko verändert und Anlage getauscht, weil LO mit der ersten Version Probleme machte.

[Pit Zyclade]

Oh, DANKE. Hast Dir wieder einmal viel Mühe gemacht, mehr als nötig! Aber vermutlich werde ich die Serienbriefkonstruktion verwenden, weil ich sie besser in meinem Kopf behalten kann. Ich habe mir aber deinen Vorschlag in mein privates Makroarchiv gepackt.