Vraag : Verhinder paginadruk als spatie

Hello hebben de Deskundigen,

I een macro die filters een selction en dan drukken - uit de filter.  Soms keert de filter niets terug en ik zou een bericht het zeggen van „niets willen tonen Te melden en“ de drukjob.

The te annuleren aan filter en de druk is: van

Selection.AutoFilter- Gebied: =1, Criteria1: = De Exemplaren/>s.PrintOut ActiveWindow.SelectedSheet: =1, breng bij elkaar: =True
Selection.AutoFilter- Gebied: =1

Thanks vooraf voor uw help

Antwoord : Verhinder paginadruk als spatie

Volledige code met inbegrip van het bericht:

Selection.AutoFilter Gebied: =1, Criteria1: = " Overzicht "
Als (xlCellTypeVisible) ActiveSheet.AutoFilter.Range.Columns (1) .SpecialCells. Telling - 1 <> 0 toen
    ActiveWindow.SelectedSheets.PrintOut Exemplaren: =1, breng bij elkaar: =True
Anders
    MsgBox „niets aan rapport, geannuleerde drukbaan!“
Eind als
Selection.AutoFilter Gebied: =1