Etiketten mit ACCESS Drucken

Hallo zusammen
Möchte mit einem Formular bestimmte Etikette ausdrucken und gleichzetig den Wert berechnen. Hab den Druck über eine Abfrage mit Filtermöglichkeit durch ein Aufklappfeld gesteuert. Das hat schon mal gut geklappt! Aber wie kann ich die Anzahl der gleichen Etiketten bestimmen und ändern?

Für Eure Hilfe schon mal besten Dank

Hallo Dieter,

das hier …
_Problem:
Wie kann ich Etiketten mehrfach mit dem
gleichen Datensatz ausdrucken?

Auf einer Seite sind 12 Etiketten.
Ich habe nur einen Kunden- Datensatz,
der aber 100 mal gedruckt werden soll.

Wie ist dies mit Microsoft Access 97 zu lösen?

Antwort:

Die einfachste Lösung für Etiketten wäre,
ein zusätzliches Feld namens AnzahlEtiketten
in der Kunden-Tabelle hinzuzufügen.
In diesem Feld steht die Anzahl der Etiketten,
die für den Kunden ausgedruckt werden sollen.

Damit der Bericht auf das Feld AnzahlEtiketten
zugreifen kann, fügen Sie es in den Detailbereich
des Berichts ein. Sie können das Feld dann
unsichtbar machen, so dass es nicht ausgedruckt wird.

Damit ein Etikett mehrmals gedruckt wird,
benötigen Sie eine VBA- Prozedur für das
Bericht-Ereignis Detail1_Print:_

Private Sub Detail1\_Print(Cancel As \_ Integer, PrintCount As Integer)

If AnzahlEtiketten = 0 Then
' gar nichts drucken
Me.NextRecord = True
Me.MoveLayout = False
Me.PrintSection = False
Else
' Druckvorgang wiederholen,
' wenn AnzahlEtiketten ' noch nicht erreicht ist
If PrintCount 

_Access erhöht die Druckanzahl (PrintCount)   
des aktuellen Datensatzes automatisch.   
Wenn die Druckanzahl also den Wert im Feld   
AnzahlEtiketten noch nicht erreicht hat,   
wiederholt Access den Druckvorgang für den   
aktuellen Datensatz.   
Andernfalls wird der nächste Datensatz ausgedruckt.  
  
Es ist natürlich erforderlich, daß Sie das Format   
des Berichts für Ihre eigenen Etiketten anpassen._   


habe ich aus **http://www.fullaccess.de/hilfe/bericht/hilfe\_br003.htm** kopiert - vielleicht hilft´s ???

gruss
moritzbock


> <small>[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]</small>