Druckbereich ein und ausschalten
20.11.2003 22:12:55
Thomas
Ich habe zwei Makros um den Druckbereich ein oder auszuschalten.
Sub DruckbereichFestlegen()
With ActiveSheet
.Range("A1").Select
.PageSetup.PrintArea = _
ActiveCell.CurrentRegion.Address
End With
End Sub
Sub DruckbereichAufheben()
ActiveSheet.PageSetup.PrintArea = ""
End Sub
Wie kann ich die beiden Makros so verbinden, dass ich sie über EINE Schaltfläche aufrufen kann.
Wenn ich auf die Schaltfläche klicke und der Druckbereich ist nicht definiert, soll er festgelegt werden und wenn er schon festgelegt ist, soll er aufgehoben werden.
Im Voraus besten Dank für Hinweise.
Thomas