Supportnet / Forum / Datenbanken
Access
Frage
Ich würde gerne alle meine Berichte nach einander ausdrucken, welche einstellungen muss ich vornehmen?
Antwort 1 von oliverV
Erstelle in einem Formular eine Schaltfläche, an deren Klick-Ereignis du per VBA oder Makro den Ausdruck der einzelnen (alle Berichtsnamen einzeln) Berichte bindest.
Gruß
Oliver
Gruß
Oliver
Antwort 2 von MickK
Hallo Irene,
Du kannst auch die Systemtabelle MSysObjects nach den Berichten durchforsten und alle gefundenen Bericht ausdrucken.
Den Code an einen Button hängen
Gruß
Mick
Du kannst auch die Systemtabelle MSysObjects nach den Berichten durchforsten und alle gefundenen Bericht ausdrucken.
Den Code an einen Button hängen
Dim Db as Database
Dim Rs as Recordset
Set Db = CurrentDb
'-- alle berichte holen
Set Rs = Db.OpenRecordset("SELECT Name FROM MSysObjects WHERE Type = -32764;")
'-- berichte vorhanden
If Rs.Recordcount > 0 then
Rs.MoveFirst
While not Rs.EOF
'-- bericht drucken
Docmd.OpenReport Rs!Name, acViewNormal
'-- next one
Rs.MoveNext
Wend
End if
Gruß
Mick