Question : Empêcher l'impression de page si blanc

Bonjour les experts, le

I ont un macro qui filtre un selction et puis imprime le filtre.  Parfois le filtre ne renvoie rien et je voudrais qu'un message montre dire « rien à rapporter » et décommander le macro de l'impression job.

The pour filtrer et la copie est : champ du

Selection.AutoFilter : =1, Criteria1 : = copies du
ActiveWindow.SelectedSheets.PrintOut de " revue " : =1, assemblent : Champ du =True
Selection.AutoFilter : =1

Thanks à l'avance pour votre help class= de

Réponse : Empêcher l'impression de page si blanc

Plein code comprenant le message :

Champ de Selection.AutoFilter : =1, Criteria1 : = " revue "
Si ActiveSheet.AutoFilter.Range.Columns (1).SpecialCells (xlCellTypeVisible). Compte - 1 <> 0 puis
    Copies d'ActiveWindow.SelectedSheets.PrintOut : =1, assemblent : =True
Autrement
    MsgBox « rien à rapporter, tirage décommandé ! »
Finir si
Champ de Selection.AutoFilter : =1