Cuestión : Prevenir la impresión de la página si espacio en blanco

Hola los expertos,

I tienen una macro que filtre un selction y después imprima el filtro.  El filtro no vuelve a veces nada y quisiera que un mensaje exhibiera decir “es nada divulgar” y cancelar la macro de la impresión job.

The para filtrar y la impresión: campo del

Selection.AutoFilter: =1, Criteria1: = copias del
ActiveWindow.SelectedSheets.PrintOut de la " revisión ": =1, compaginan: Campo del =True
Selection.AutoFilter: =1

Thanks por adelantado para su help class= del

Respuesta : Prevenir la impresión de la página si espacio en blanco

Código completo incluyendo el mensaje:

Campo de Selection.AutoFilter: =1, Criteria1: = " revisión "
Si ActiveSheet.AutoFilter.Range.Columns (1).SpecialCells (xlCellTypeVisible). Cuenta - 1 <> 0 entonces
    Copias de ActiveWindow.SelectedSheets.PrintOut: =1, compaginan: =True

    MsgBox “nada divulgar, trabajo de impresión cancelado!”
Terminar si
Campo de Selection.AutoFilter: =1