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时格式化所有内容?