3-fach Ausdruck von Access Berichten mit „Kopie“ Vermerk
Veröffentlicht am 14.07.2004
Frage:
Ich möchte einen Access-Bericht 3 x ausdrucken und auf den Ausdrucken 2 und 3 soll jeweils das Wort Kopie eingefügt werden.
Wie kann ich das in VBA realisieren?
Antwort:
Für dieses Problem gibt es zwei Lösungsmöglichkeiten:
- Sie führen die DoCmd.OpenReport-Anweisung dreimal aus und übergeben als Argument OpenArgs beim zweiten und dritten mal den Text Kopie. Das Argument werten Sie dann in der Detailbereich_Format-Ereigniseigenschaft aus (z.B. indem Sie ein Label-Feld mit dem Text Kopie ein- oder ausblenden).
- Sie führen die DoCmd.OpenReport-Anweisung dreimal aus. Der Bericht prüft dann im Detailbereich_Format-Ereignis, ob das zugrunde liegende Feld DruckdatumOriginal noch leer ist. Wenn ja, wird der Text Kopie ausgeblendet und das aktuelle Tagesdatum als Druckdatum eingetragen. Wenn bereits ein Druckdatum vorhanden sein sollte, wird der Text Kopieeingeblendet. Abgesehen vom ersten Ausdruck werden so alle weiteren Ausdrucke mit dem Vermerk Kopie gedruckt.