Druckbereich per VBA einrichten

23/07/2010 - 10:56 von HelmutMit | Report spam
Hallo zusammen,
ich versuche vergeblich, mit folgendem Code einen Druckbereich
einzurichten:

Sub Druckbereich_Einrichten()
Dim MeinBereich As Range
Set MeinBereich = Range("A1:H60")
ActiveSheet.PageSetup.PrintArea = MeinBereich
End Sub

Die Prozedur làuft ohne Fehler ab, aber es wird kein Druckbereich
eingerichtet. Was mache ich falsch?

Hingegen làuft

Sub Druckbereich_Einrichten()
ActiveSheet.PageSetup.PrintArea = "A1:H60"
End Sub
Ich suche jedoch die Möglichkeit, den Druckbereich dynamisch zu
definieren, also Lösung2 scheidet aus.
 

Lesen sie die antworten

#1 Claus Busch
23/07/2010 - 11:13 | Warnen spam
Hallo Helmut,

Am Fri, 23 Jul 2010 01:56:02 -0700 (PDT) schrieb HelmutMit:

Ich suche jedoch die Möglichkeit, den Druckbereich dynamisch zu
definieren, also Lösung2 scheidet aus.



dann mache es doch über einen Bereichsnamen:

Sub Druckbereich_Einrichten()

With ActiveSheet
.Names.Add Name:="MeinBereich", RefersTo:=.Range("A1:H50")
.PageSetup.PrintArea = "MeinBereich"
End With

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen