Ändern Printarea Seitengröße mit VBA

Question

Wenn die PrintArea mehr als 1 Seite verbraucht, können Sie die Seitengröße Verhältnis in Seitenumbruch Ansicht über die gestrichelte Linie im Bild unten anpassen:

Gibt es ein Möglichkeit, das Größenverhältnis mit VBA anzupassen? Ich konnte keine Eigenschaften von PageSetup ausgesetzt finden, die dies ermöglicht.

Answer 1

Sie können die Methode HPageBreaks.add verwenden, um einen neuen Seitenumbruch an einer bestimmten Position zu erstellen. Zum Beispiel:

Sub PageBreaks() 
    Dim shtSheet As Worksheet 

    Set shtSheet = ActiveSheet 

    shtSheet.HPageBreaks.Add before:=Range("A10") 
End Sub