EXCELVBA打印的页面设置代码带注释
'设置页眉
.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 = Falsemargin属性值可以为百分比
将所有列调整为一页打印
.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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。