Questione : Impedire la stampa della pagina se spazio in bianco

Ciao gli esperti, il

I hanno una macro che filtra un selction ed allora stampa il filtro.  A volte il filtro non restituisce niente e vorrei un messaggio per visualizzare dire che “niente segnalare„ ed annullare la macro della stampa job.

The per filtrare e la stampa è: campo del

Selection.AutoFilter: =1, Criteria1: = copie del
ActiveWindow.SelectedSheets.PrintOut " di rassegna ": =1, fascicolano: Campo del =True
Selection.AutoFilter: =1

Thanks in anticipo per il vostro help class= del

Risposta : Impedire la stampa della pagina se spazio in bianco

Codice completo compreso il messaggio:

Campo di Selection.AutoFilter: =1, Criteria1: = " rassegna "
Se ActiveSheet.AutoFilter.Range.Columns (1).SpecialCells (xlCellTypeVisible). Conteggio - 1 <> 0 allora
    Copie di ActiveWindow.SelectedSheets.PrintOut: =1, fascicolano: =True
Altrimenti
    MsgBox “niente segnalare, lavoro di stampa annullato!„
Concluder se
Campo di Selection.AutoFilter: =1