PDA

Vollständige Version anzeigen : PROFI: Aus gefilterten Formular die daten drucken


stefan01
16.10.2001, 10:17
Ich möchte über ein formular, in dem ich Daten filtere, diese
in einem Bericht ausdrucken.

Ich habe folgenden Code in ein Formular eingegen:

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Bericht auf Grundlage eines Filters ausdrucken
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Sub filterdrucken(b_ToDo_Uebersicht)
DoCmd.Echo False
Dim stDocName As String
Dim ab, ac As String
Dim MyForm As Form

DoCmd.SetWarnings False
ab = Screen.ActiveForm.Filter
ac = Screen.ActiveForm.OrderBy
DoCmd.OpenReport "b_ToDo_Uebersicht", acViewDesign
Reports("b_ToDo_Uebersicht").Filter = ab
Reports("b_ToDo_Uebersicht").Filter = True
Reports("b_ToDo_Uebersicht").OrderBy = ac
Reports("b_ToDo_Uebersicht").OrderByOn = True
DoCmd.Close acReport, "b_ToDo_Uebersicht"
DoCmd.SetWarnings False
DoCmd.Echo True
DoCmd.OpenReport "b_ToDo_Uebersicht", acViewPreview

End Sub

Nun sollte mein Bericht "b_ToDo_uebersicht" nur die in meinem
Formular "Uebersicht" gefilterten Daten drucken (Button "Druck"
mit Anweisung Call filterdrucken(b_ToDo_Übersicht) beim Klicken belegt.

PROBLEM: Der Bericht zeigt NUR die ungefilterten Daten!!!

sekoe
16.10.2001, 10:22
Hat sich da ein Fehlerteufel eingeschlichen ?

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Bericht auf Grundlage eines Filters ausdrucken
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Sub filterdrucken(b_ToDo_Uebersicht)
DoCmd.Echo False
Dim stDocName As String
Dim ab, ac As String
Dim MyForm As Form

DoCmd.SetWarnings False
ab = Screen.ActiveForm.Filter
ac = Screen.ActiveForm.OrderBy
DoCmd.OpenReport "b_ToDo_Uebersicht", acViewDesign
Reports("b_ToDo_Uebersicht").Filter = ab
Reports("b_ToDo_Uebersicht").FilterOn = True
Reports("b_ToDo_Uebersicht").OrderBy = ac
Reports("b_ToDo_Uebersicht").OrderByOn = True
DoCmd.Close acReport, "b_ToDo_Uebersicht"
DoCmd.SetWarnings True
DoCmd.Echo True
DoCmd.OpenReport "b_ToDo_Uebersicht", acViewPreview

End Sub

stefan01
16.10.2001, 10:24
DANKE !!!!!!!!!!!

Manchmal gehts zu zweit halt besser.

Gruß Stefan