you need to save [Forms]![FomLogin]![txtDienstID] to a public variable, so you can access them in the report.
after logging in:
Tempvars.Add "allow_shortcut", (Instr(1, ",1,2,5,8", "," & [Forms]![FomLogin]![txtDienstID] & ",") > 0)
on each report, check this variable on its, Open event:
Private Sub Report_Open(Cancel As Integer)
If [Tempvars]![allow_shortcut] = False Then
Me.ShortcutMenuBar = "menu_print"