Вопрос : Предотвратите печатание страницы если пробел

Здравствулте! специалисты,

I имеют макрос который фильтрует selction и после этого печати - вне фильтр.  Иногда фильтр не возвращает ничего и я хотел был бы сообщение для показа говорить «ничего сообщить» и отменить макрос печати job.

The для того чтобы фильтровать и печать является следующим: поле

Selection.AutoFilter: =1, Criteria1: = экземпляры
ActiveWindow.SelectedSheets.PrintOut " просмотрения ": =1, Collate: Поле =True
Selection.AutoFilter: =1

Thanks заранее для вашего help class=

Ответ : Предотвратите печатание страницы если пробел

Полное Кодий включая сообщение:

Поле Selection.AutoFilter: =1, Criteria1: = " просмотрение "
Если ActiveSheet.AutoFilter.Range.Columns, то (1).SpecialCells (xlCellTypeVisible). Отсчет - 1 <> 0 после этого
    Экземпляры ActiveWindow.SelectedSheets.PrintOut: =1, Collate: =True
Еще
    MsgBox «ничего сообщить, отмененная печатная работа!»
Закончитесь если
Поле Selection.AutoFilter: =1