Hi,
Beim laden des berichtes sortiere ich, das funktioniert !
Beim Öffnen Druckauswahl funktioniert,
aber beim Drucken Fehlermeldung Berichtsereignis noch nicht verarbeitet.
Nach Drucken soll Bericht schließen (zurück zum Übersichtsmanager).
Code:
Private Sub Report_Load()
Dim stDocName As String
If Me.OrderByOn Then
Reports!meinBericht.OrderBy = „Jahr“
Reports!meinBericht.OrderByOn = True
DoCmd.Close acReport, stDocName
End If
Exit Sub
DoCmd.Close acReport, stDocName
End Sub
Private Sub Report_Open(Cancel As Integer)
Dim stSQL As String
Dim stDocName As String
stDocName = „Druck_Schaden“
DoCmd.RunCommand acCmdPrint
Err_Exit:
MsgBox err.Description
Exit Sub
End Sub
Gruss Jürgen