Druckbereich löschen

Forumthread: Druckbereich löschen

10.01.2003 14:56:21

Stefan

hallo,

ich habe mehrere tabellen in einer datei. bei mnachen wurde ein druckbereich festgelegt, was mir probleme beim drucken macht. wie kann ich auf einen schlag den druckbereich in allen tabellen löschen ???

vielen dank

gruß

stefan

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Druckbereich löschen

10.01.2003 15:00:11

Klaus
Re: Druckbereich löschen

10.01.2003 15:02:34

andreas e
Re: Druckbereich löschen

10.01.2003 15:08:57

DANKE

Re: Druckbereich löschen

10.01.2003 15:00:11

Klaus

Hallo Stefan,

Sub printareaweg()
ActiveSheet.PageSetup.PrintArea = ""
End Sub

Dies löscht den Druckbereich, musst Du nur noch eine for each Schleife basteln, die dann alle Sheets in der Mappe anspricht. Gibt es aber unter Recherche. Muss jetzt weg, Büro zu, endlich Wochenende.
Gruss
Klaus

Re: Druckbereich löschen

10.01.2003 15:02:34

andreas e

hallo steafn

Sub Makro2()
For i = 1 To Worksheets.Count
Sheets(i).PageSetup.PrintArea = ""
Next
End Sub

gruß
andreas e

Re: Druckbereich löschen

10.01.2003 15:08:57

DANKE

Forumthread: Druckbereich löschen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread