Hallo Arnold,
hier ein Auszug aus
Bestimmte Datensätze drucken (Access 97, 2000)
_Beim Ausdruck von Berichten werden stets immer alle Datensätze
der zugrundeliegenden Datenquelle ausgedruckt. Schwierig wird es
dann, wenn Sie jeden zu druckenden Datensatz einzeln auswählen möchten.
Erstellen Sie ein Formular mit einem Listenfeld, das die genaue
Auswahl der zu druckenden Datensätze erlaubt.
Wenn Sie beispielsweise bestimmte Adressendatensätze drucken möchten, plazieren Sie auf einem leeren Formular ein Listenfeld namens lstDatensätze.
Der Datensatzherkunft-Eigenschaft weisen Sie dann eine Abfrage zu, die das Listenfeld mit Adreßdatensätzen füllt. Wichtig ist hierbei, dass die gebundenen Spalte das Primärschlüsselfeld der Adressentabelle ist (in diesem Beispiel das Feld AdresseNr).
Damit in der Liste mehrere Einträge gleichzeitig ausgewählt werden können, stellen Sie die Mehrfachauswahl-Eigenschaft auf Einzeln ein.
Den Start des Drucks erledigt eine Schaltfläche, die Sie ebenfalls auf dem Formular plazieren. Die Schaltfläche ist mit der folgenden BeimKlicken-Ereignisprozedur verknüpft:_
Private Sub btnDrucken\_Click()
Dim Element As Variant
Dim Bedingung As String
Dim AdresseNr As Variant
'Ist überhaupt ein Eintrag markiert?
If Me!lstDatensätze.ItemsSelected.Count = 0 Then Exit Sub
'Bedingung zusammenstellen
For Each Element In Me!lstDatensätze.ItemsSelected
AdresseNr = Me!lstDatensätze.ItemData (Element)
Bedingung = Bedingung & \_
"AdresseNr = " & AdresseNr & " OR "
Next Element
'Rechtes OR abschneiden
Bedingung = Left(Bedingung, Len(Bedingung) - 4)
DoCmd.OpenReport ReportName:="Adressenliste", \_
WhereCondition:=Bedingung, View:=acPreview
End Sub
gruss moritzbock
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]