是否可以制作分页符，以便在查看PDF时格式化所有内容？

Question

    Sub pagesetuptrythis()
'
' pagesetuptrythis Macro
'

'
    Range("A1:L1").Select
    ActiveWindow.SmallScroll Down:=173
    Range("A1:L195").Select
    With ActiveSheet.pagesetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.pagesetup.PrintArea = "$A$1:$L$195"
    With ActiveSheet.pagesetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = -4
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = 0
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
    End With
    ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
    ActiveWindow.SmallScroll Down:=112
    Set ActiveSheet.HPageBreaks(2).Location = Range("A132")
    ActiveWindow.SmallScroll Down:=-63
    Set ActiveSheet.HPageBreaks(1).Location = Range("A62")
End Sub

使用Excel for Mac。

我正在尝试将分页符向右移动，以便蓝色垂直线在L和M之间。然后我调整水平分页符，以便文本不会被切断，当我去保存时。

不幸的是，这不起作用，当我点击调试时，黄色箭头/突出显示器出现在ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1上方，并且不再继续。

是否可以让宏执行分页符，以便在查看PDF时格式化所有内容？