"设置页眉
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
"设置页脚
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
"设置边距
.LeftMargin = Application.InchesToPoints(0.16875)
.RightMargin = Application.InchesToPoints(7.84722222222222E-02)
.TopMargin = Application.InchesToPoints(0.389583333333333)
.BottomMargin = Application.InchesToPoints(0.16875)
.HeaderMargin = Application.InchesToPoints(0.275)
.FooterMargin = Application.InchesToPoints(0.16875)
"如果打印本页时同时打印行标题和列标题，则该值为 True
.PrintHeadings = False
"如果在页面上打印单元格网格线，则该值为 True
.PrintGridlines = False
"返回或设置批注随工作表打印的方式
.PrintComments = xlPrintNoComments
"如果在页面的水平居中位置打印指定工作表，则该属性值为 True
.CenterHorizontally = False
"如果在页面的垂直居中位置打印指定工作表，则该属性值为 True
.CenterVertically = False
"返回或设置一个**XlPageOrientation** 值, 它代表纵向或横向打印模式。
"xlLandscape 横向打印
"xlPortrait 纵向打印
.Orientation = xlLandscape
"如果打印工作表时不打印其中的图形，则该属性值为 True
.Draft = False
"返回或设置纸张大小
.PaperSize = xlPaperA3
"返回或设置打印指定工作表时第一页的页号。 如果设为 xlAutomatic，则 Microsoft Excel 采用第一页的页号。 默认值为xlAutomatic (常量)。
.FirstPageNumber = xlAutomatic
"返回或设置一个**XlOrder** 值, 该值代表 Microsoft Excel 在打印大型工作表时对页面编号时使用的顺序。
.Order = xlDownThenOver
"如果指定文档中的元素以黑白方式打印，则该属性值为 True。
.BlackAndWhite = False
"返回或设置一个 Variant 值，它代表一个数值在 10% 到 400% 之间的百分比，该百分比为 Microsoft Excel 打印工作表时的缩放比例。
.Zoom = False
将所有列调整为一页打印
.FitToPagesWide = 1
"将所有行调整为一页打印
.FitToPagesTall = 0
"设置或返回一个**XlPrintErrors** 常量, 该常量指定显示的打印错误的类型。 该功能允许用户在打印工作表时取消错误显示
.PrintErrors = xlPrintErrorsDisplayed
"True 指定的 PageSetup 对象是否的奇数和偶数页不同的页眉和页脚。
.OddAndEvenPagesHeaderFooter = False
"如果不同的页眉或页脚使用第一页上。
.DifferentFirstPageHeaderFooter = False
"返回或设置页眉和页脚是否在文档大小更改时随文档缩放。
.ScaleWithDocHeaderFooter = False
"如果 Excel 以页面设置选项中设置的边距对齐页眉和页脚，则返回 True
.AlignMarginsHeaderFooter = False
"返回或设置工作簿或节的偶数页上的文本对齐方式。
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
"返回或设置工作簿或节的第一页上的文本对齐方式。
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
