|
一、页面设置举例
Sub 设置页面()
' 设置纸张大小
With ActiveSheet.PageSetup
.PaperSize = xlPaperA4 ' A4纸大小
.Orientation = xlPortrait ' 纵向
End With
' 设置页边距
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(1) ' 左边距为1英寸
.RightMargin = Application.InchesToPoints(1) ' 右边距为1英寸
.TopMargin = Application.InchesToPoints(1) ' 上边距为1英寸
.BottomMargin = Application.InchesToPoints(1) ' 下边距为1英寸
.HeaderMargin = Application.InchesToPoints(0.5) ' 页眉距离为0.5英寸
.FooterMargin = Application.InchesToPoints(0.5) ' 页脚距离为0.5英寸
End With
' 设置打印区域
With ActiveSheet.PageSetup
.PrintArea = 'A1:F30' ' 打印区域为A1:F30
End With
' 设置缩放比例
With ActiveSheet.PageSetup
.Zoom = False ' 不缩放
.FitToPagesWide = 1 ' 横向一页显示一个工作表
.FitToPagesTall = False ' 不按页数显示工作表
End With
' 设置打印标题
With ActiveSheet.PageSetup
.PrintTitleRows = '$1:$1' ' 打印标题行为第1行
End With
' 设置打印网格线
With ActiveSheet.PageSetup
.PrintGridlines = True ' 打印网格线
End With
End Sub
这段代码将设置当前活动工作表的页面设置为A4纸大小、纵向、页边距为1英寸、打印区域为A1:F30、缩放比例为100%、打印标题行为第1行、打印网格线。
二、页面相关的vba知识点：
1. Sheets('Sheet1').PageSetup.PrintArea = 'A1:C10'
- 设置打印区域为 'Sheet1' 工作表的 A1 到 C10 单元格区域。
2.Sheets('Sheet2').PageBreak(xlPageBreakManual, Type:=xlBreakAtRow, Location:=10)
- 在 'Sheet2' 的第 10 行手动设置分页符。
3. Sheets('Sheet3').PageSetup.TopMargin = 9.5
- 将 'Sheet3' 的顶部边距设置为 9.5 英寸。
4.Sheets('Sheet4').PageSetup.BottomMargin = 11
- 将 'Sheet4' 的底部边距设置为 11 厘米。
5. Sheets('Sheet5').PageSetup.LeftMargin = 7.5
- 将 'Sheet5' 的左边距设置为 7.5 厘米。
6.Sheets('Sheet6').PageSetup.RightMargin = 9
- 将 'Sheet6' 的右边距设置为 9 英寸。
7.Sheets('Sheet7').PageSetup.PrintTitleRows = '1:1'
- 设置打印标题行数为第一行。
8.Sheets('Sheet8').PageSetup.PrintTitleColumns = 'A:C'
- 设置打印标题列数为 A 到 C 列。
9.Sheets('Sheet9').PageSetup.FooterMargin = 1.5
- 将 'Sheet9' 的页脚边距设置为 1.5 英寸。
10.Sheets('Sheet10').PageSetup.HeaderMargin = 1
- 将 'Sheet10' 的页面标题边距设置为 1 厘米。
11.Sheets('Sheet11').PageSetup.Orientation = xlLandscape
- 将 'Sheet11' 的页面方向设置为横向。
12. Sheets('Sheet12').PageSetup.Zoom = 80
- 将 'Sheet12' 的缩放设置为 80%。
13.Sheets('Sheet13').PageSetup.PrintComments = xlPrintComments
- 设置打印注释。
14.Sheets('Sheet14').PageSetup.PrintGridlines = True
- 设置打印网格线。
15.Sheets('Sheet15').PageSetup.PrintHeadings = True
- 设置打印行和列标题。
16. Sheets('Sheet16').PageSetup.Draft = False
- 关闭 'Sheet16' 的草稿视图。
17.Sheets('Sheet17').PageSetup.FirstPageNumber = 2
- 设置第一页的页码为第 2 页。
18.Sheets('Sheet18').PageSetup.BlackAndWhite = True
- 设置 'Sheet18' 为黑白打印。
19.Sheets('Sheet19').PageSetup.TogglePages = True
- 切换页面设置。
20. Sheets('Sheet20').PageSetup.Title = 'My Report'
- 设置页面的标题为 'My Report'。
21.Sheets('Sheet21').PageSetup.SubTitle = 'Subtitle Text'
- 设置页面的副标题为 'Subtitle Text'。
22. Sheets('Sheet22').PageSetup.Footer = '&P of &N'
- 在页脚中显示页码和总页数。
23.Sheets('Sheet23').PageSetup.HorizontalCentered = True
- 水平居中页面内容。
|
