'设置页眉

.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