:salut:

Tu peux récupérer le nombre de pages de ton état puis lancer l'impression :


Dim intNbPages as integer
intNbPages = Reports("MonEtat").Pages
DoCmd.PrintOut acPages, intNbPages,...