Access 7.0: Beliebige Anzahl von Etiketten pro EmpfΣnger drucken

Beim Ausdruck von Adressenetiketten kommt es hΣufig vor, da▀ fⁿr einige EmpfΣnger gleich mehrere Etiketten ben÷tigt werden. Damit Sie diese Etiketten nicht mⁿhsam kopieren oder mehrmals ausdrucken mⁿssen, lohnt es sich, Ihre Datenbank fⁿr den Ausdruck beliebig vieler Etiketten pro EmpfΣnger einzurichten.
Dies gelingt mit einem zusΣtzlichen Feld in der Tabelle mit den Adressen und einer Ereignisprozedur. ErgΣnzen Sie zunΣchst die Tabelle, die Sie fⁿr den Etikettendruck verwenden wollen, um ein numerisches Feld »Etiketten«. Hier geben Sie ein, wie viele zusΣtzliche Etiketten jeder EmpfΣnger erhΣlt. Bleibt das Feld leer, druckt Access nur ein Etikett aus. Wechseln Sie dann in das Register »Berichte« des Datenbankfensters und klicken Sie auf »Neu«.
In der daraufhin erscheinenden Dialogbox markieren Sie den »Etikettenassistent« und wΣhlen die Tabelle aus, die Sie um das Feld »Etiketten« ergΣnzt haben. Nach einem Klick auf »OK« suchen Sie das von Ihnen verwendete Etikettenfabrikat aus und geben in der ⁿbernΣchsten Dialogbox an, wie die Felder auf dem Etikett erscheinen sollen.
Fⁿgen Sie unter die Zeilen mit der Adresse eine leere Zeile ein und plazieren Sie dort das Feld »Etiketten«. In der nΣchsten Dialogbox entscheiden Sie, nach welchem Feld die DatensΣtze sortiert werden mⁿssen.
Klicken Sie nochmals auf »Weiter« und aktivieren Sie die Option »Den Etikettenentwurf verΣndern«, bevor Sie ihn »Fertigstellen«. Damit die Zahlen im Feld »Etiketten« nicht auf den Etiketten erscheinen, klicken Sie das entsprechende Feld mit der rechten Maustaste an und wΣhlen »Eigenschaften«. Im Register »Format« setzen Sie »Sichtbar« auf »Nein« und klicken dann auf den grauen Balken »Detailbereich«, um dessen Eigenschaften zu verΣndern.
Wechseln Sie in das Register »Ereignis« und wΣhlen Sie unter »Beim Drucken« den Eintrag »[Ereignisprozedur]« aus. Ein Klick auf die SchaltflΣche mit den drei Punkten bringt Sie in den Editor, in dem Sie das oben abgedruckte Makro eingeben k÷nnen. Um das Ergebnis vor dem Ausdruck zu ⁿberprⁿfen, wechseln Sie anschlie▀end in die Seitenansicht, und der Etikettendruck kann losgehen.
Ereignisprozedur »Beim Drucken«:
Private Sub Detailbereich_Print(Cancel As Integer, PrintCount As Integer)
Static Anzahl As Integer
If Anzahl < Me!Etiketten Then
Me.NextRecord = False
Anzahl = Anzahl + 1
Else
Anzahl = 0
End If
End Sub