Druckbereich ein und ausschalten

Bild

Betrifft: Druckbereich ein und ausschalten
von: Thomas
Geschrieben am: 20.11.2003 22:12:55

Hallo

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
Bild


Betrifft: AW: Druckbereich ein und ausschalten
von: Peter
Geschrieben am: 20.11.2003 22:31:45

Hallo Thomas,

Blind geschrieben, versuch mal so!


Sub Druckbereich_Ein_Aus()
  With ActiveSheet
    .Range("A1").Select
    .PageSetup.PrintArea = _
      ActiveCell.CurrentRegion.Address
  End With
'dein Druckbefehl
 ActiveSheet.PageSetup.PrintArea = ""
End Sub



Bild


Betrifft: AW: Druckbereich ein und ausschalten
von: Thomas
Geschrieben am: 20.11.2003 23:06:20

Hallo Peter

Das habe ich auch schon versucht. Es funktioniert aber nicht.
Der Druckbereich wird festgelegt, aber sofort wieder aufgehoben.
Thomas


Bild


Betrifft: AW: Druckbereich ein und ausschalten
von: K.Rola
Geschrieben am: 20.11.2003 23:33:30

Hallo,

Option Explicit

Sub Druckbereich()
If ActiveSheet.PageSetup.PrintArea <> [a1].CurrentRegion.Address Then
  ActiveSheet.PageSetup.PrintArea = [a1].CurrentRegion.Address
Else
  ActiveSheet.PageSetup.PrintArea = ""
End If
End Sub


Gruß K.Rola


Bild


Betrifft: Genau das ist es. Vielen Dank
von: Thomas
Geschrieben am: 22.11.2003 17:32:16

Genau das ist es. Vielen Dank


Bild

Beiträge aus den Excel-Beispielen zum Thema " Druckbereich ein und ausschalten"