No imprimir los registros inexistentes

Estoy intentando crear un código que imprima una serie de informes que pueden ir cambiando según los niños a los que he de dar de comer. He conseguido imprimir con el código, lo que pasa es que cuando localiza rangos de edades que no están en el centro me salen como informes ERROR y vacíos. Quiero poder pulsar un botón de comando y que me imprima sólo los rangos de los presentes.

En el informe, he intentado "al no haber datos" poner. He querido prescindir de las etiquetas porque al ser varios informes no quiero un montón de ventanas de conformación

Ption Compare Database
Option Explicit

Private Sub Report_NoData(Cancel As Integer)

1raOpcion  DoCmd.CancelEvent 

2daOpcion Cancel = True

3raOpcion = Cancel =-1

End Sub

Y el código al clik del formulario ha sido este

Private Sub CmdE_Comida_Click()

DoCmd.OpenReport "E_0a6_Desayuno", acViewReport, "", "", acNormal
DoCmd.PrintOut acPrintAll, , , acHigh, 1, True
DoCmd.Close acReport, "E_0a6_Desayuno"

DoCmd.OpenReport "E_6a9_Desayuno", acViewReport, "", "", acNormal
DoCmd.PrintOut acPrintAll, , , acHigh, 1, True
DoCmd.Close acReport, "E_6a9_Desayuno"

DoCmd.OpenReport "E_9a12_Desayuno", acViewReport, "", "", acNormal
DoCmd.PrintOut acPrintAll, , , acHigh, 1, True
DoCmd.Close acReport, "E_9a12_Desayuno"

DoCmd.OpenReport "E_12a18_Desayuno", acViewReport, "", "", acNormal
DoCmd.PrintOut acPrintAll, , , acHigh, 1, True
DoCmd.Close acReport, "E_12a18_Desayuno"

DoCmd.OpenReport "E_18a24_Desayuno", acViewReport, "", "", acNormal
DoCmd.PrintOut acPrintAll, , , acHigh, 1, True
DoCmd.Close acReport, "E_18a24_Desayuno"

DoCmd.OpenReport "E_24a36_Desayuno", acViewReport, "", "", acNormal
DoCmd.PrintOut acPrintAll, , , acHigh, 1, True
DoCmd.Close acReport, "E_24a36_Desayuno"

DoCmd.OpenReport "E_>3_años_Desayuno", acViewReport, "", "", acNormal
DoCmd.PrintOut acPrintAll, , , acHigh, 1, True
DoCmd.Close acReport, "E_>3_años_Desayuno"

End Sub

Por qué no consigo imprimir como quiero.