Drucken

Private Sub CommandButton2_Click()

With ActiveSheet.PageSetup
.PrintHeadings = True
.PrintGridlines = True
.Zoom = 70

End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=False, Collate:= _
True

Nun meine Frage: kann man die Glitternetzzeilen nur bis zur letzten beschriebenen Zeile drucken? Ich möchte nicht ein A4 Blatt mit Glitternetzzeilen drucken, wenn nur 4 Zeilen beschrieben ist.
Danke!
Gruss

Karin