Acc2002/XP - Formular/Kombinationsfeld/ alle möglichen Berichte auf einmal öffnen/dr

[fonds]

Hallo zusammen!

Ich habe ein Formular mit einem Kombinationsfeld (20Länder) und eine Befehlsschaltfläche, mit der ich für das jeweilig ausgewählte Land einen Bericht öffnen kann.
Gibt es die Möglichkeit, dass ich mit einem Klick alle Berichte einzeln öffne bzw. alle auf einmal drucken kann? Quasi eine Art Serienbrief!?

Besten Dank!

 

[fonds]

Habe jetzt folgenden Code. Nur leider erhalte ich nur leere Berichte. Wie bekommen die Abfragen die einzelnen Konzerne übertragen? Fehlt hier noch etwas?
Vielen Dank im Voraus!

Private Sub Befehl2_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SalesZahlen", dbOpenSnapshot)
Do Until rs.EOF
DoCmd.OpenReport "BERICHT_VP", , , "Konzern = '" & rs!Konzern & "'"
rs.MoveNext
Loop
Set rs = Nothing
Set db = Nothing

End Sub