hallo,
ich habe ein HF mit einem Textfeld. Nach aktualisieren wird das Unterformular gefiltert. Soweit so gut. Jetzt sollte das Ufo mit dem angezeigten Datensatz gedruckt werden, es werden aber immer alle Datensätze gedruckt, obwohl der Filter 1 von 1 DS anzeigt.
Access 2007
Code:
On Error GoTo Err_Befehl48_Click
Dim stDocName As String
Dim MyForm As Form
stDocName = "Unterform" --> hier habe ich auch Forms!Hf!Ufo probiert
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut acSelection --> hab ich auch ohne acselection probiert
DoCmd.SelectObject acForm, MyForm.Name, False
Exit_Befehl48_Click:
Exit Sub
Err_Befehl48_Click:
MsgBox Err.Description
Resume Exit_Befehl48_Click
leider konnte ich nichts entsprechendes finden.
Schon mal Dank im Voraus