Frage : Seitendrucken verhindern wenn freier Raum

Hallo haben Experten,

I ein Makro, das ein selction filtert und dann den Filter ausdruckt.  Manchmal bringt der Filter nichts zurück und ich möchte, dass eine Mitteilung Sprechen „nichts zu berichten anzeigt,“ und das Makro- des Druckes job.

The, um zu filtern und Druck zu annullieren ist:

Selection.AutoFilter Feld: =1, Criteria1: = " Bericht "
ActiveWindow.SelectedSheets.PrintOut Kopien: =1, sortieren: =True
Selection.AutoFilter Feld: =1

Thanks im Voraus für Ihr help

Antwort : Seitendrucken verhindern wenn freier Raum

Voller Code einschließlich die Mitteilung:

Selection.AutoFilter Feld: =1, Criteria1: = " Bericht "
Wenn ActiveSheet.AutoFilter.Range.Columns (1).SpecialCells (xlCellTypeVisible). Zählimpuls - 1 <> 0 dann
    ActiveWindow.SelectedSheets.PrintOut Kopien: =1, sortieren: =True
Sonst
    MsgBox „nichts zu berichten, Druckjob annulliert!“
Beenden wenn
Selection.AutoFilter Feld: =1