Sub Imprimer_arrivees() 'Aperçu avant impression 'Imprimer la sélection de la zone à imprimer ActiveSheet.PageSetup.PrintArea = "$U$2:$Y$67" 'ActiveSheet.PrintPreview 'OU Mettre en commentaire la ligne 4 et enlever le commentaire devant la dernière ligne 'Impression sans aperçu ActiveSheet.PrintOut End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question