ник: Анатолий (Киев)
У меня не ругаются (NOD32)... :-)
Создаете макрос с этим именем. В колонке "Macro Name" пишете ^{x} (Гляньте Help про инструкцию SendKeys), а в колонке "Action" - команду RunCode с именем функции, в которой:
On Error Resume Next
DoCmd.Close acReport , Screen.ActiveReport.Name
Если в формах есть какая-то альтернатива - событие Form_KeyDown (при KeyPreview=True), то для отчетов - только этот макрос.