Schleife zum Ändern der Arbeitsblattseiteneinstellung/Druckbereich

Question

Ich habe einen Punkt erreicht, an dem ich eine Excel-Arbeitsmappe aus mehreren Blättern von mehreren Stellen erstellt habe. Das Problem ist, dass sie alle unterschiedliche Seiteneinstellungen, Druckbereiche usw. haben. Der Druckbereich ist die Hauptsache, also suche ich eine Schleife in VBA, um alle Blätter im Dokument durchzugehen und den Druckbereich auf "fit" zu ändern auf einer Seite ". Hier ist etwas, das ich erstellt habe und an dem ich arbeite, es läuft in VBA, aber tatsächlich passiert nichts? : /. Gibt es auch eine Möglichkeit, auf der Seite zu zentralisieren? Passt also nicht nur zur Seite, sondern passt und zentriert in der Seite?

Sub WsLoop() 

Dim ws As Worksheet 

    For Each ws In ActiveWorkbook.Worksheets 
     With ws.PageSetup 
     .Orientation = xlLandscape 
     .FitToPagesWide = 1 
     .FitToPagesTall = 1 
    End With 
    Next 

End Sub 

Answer 1

1. Die .Orientation Werke für mich in Excel 2010. Ihre Nutzung von ActiveWorkbook könnte das Problem sein; Es könnte ein anderes Arbeitsbuch als erwartet auswählen. Versuchen Sie, den Arbeitsmappennamen zu auszuwählen, wählen Sie es aus.
von ohne Überraschungen Scott wie erwähnt .Zoom = False
2. .CenterHorizontally und .CenterVertically Eigenschaften des PageSetUp Objekt arbeiten sollte

Ich habe versucht, in Excel:

Für setzen die .FitToPagesWide und .FitToPagesTall zu arbeiten, nach dem vor ihnen 2010 und das funktioniert. Für die .FitToPagesWide und .FitToPagesTall, werden Sie nicht sehen, dass sie ausgefüllt werden, wenn Sie einfach auf "Drucken" im "Datei" -Menü klicken; Sie sehen, dass sie ausgefüllt werden, wenn Sie dann auf den Link "Seite einrichten" unten im Bereich zwischen dem Untermenü auf der linken Seite und der Vorschau auf der rechten Seite klicken.