打印设置所有参数

[vb]代码库

Sub 打印设置()
    Application.PrintCommunication = False '中断打印机的通信
    With ActiveSheet.PageSetup
        .PrintTitleRows = "" '设置打印表头比如= "$1:$2"为设置第一二两行为表头
        .PrintTitleColumns = "" '设置打印左侧重复列数
    End With
    Application.PrintCommunication = True '恢复打印机的通信
    ActiveSheet.PageSetup.PrintArea = "" '打印区域，以字符串的形式= "$A$1:$Y$47"
    Application.PrintCommunication = False '中断打印机的通信
    With ActiveSheet.PageSetup
        .LeftHeader = "" '返回或设置工作簿或节的左页眉上的文本对齐方式。
        .CenterHeader = "" '居中对齐 PageSetup 对象中的页眉信息。可读/写 String 类型。
        .RightHeader = "" '返回或设置页眉的右边部分内容。可读/写 String 类型。
        .LeftFooter = "" '返回或设置工作簿或节的左页脚上的文本对齐方式。
        .CenterFooter = "" '居中对齐 PageSetup 对象中的页脚信息。可读/写 String 类型。
        .RightFooter = "" '返回或设置页面右边缘与页脚右边界之间的距离（以磅为单位）。可读/写 String 类型
        .LeftMargin = Application.InchesToPoints(0) '以磅 为单位返回或设置左边距的大小。Double 类型，可读写。
'（磅：指打印的字符的高度的度量单位。1 磅等于 1/72 英寸，或大约等于 1 厘米的 1/28。）
        .RightMargin = Application.InchesToPoints(0) '以磅 为单位返回或设置右边距的大小。Double 类型，可读写。
        .TopMargin = Application.InchesToPoints(0.393700787401575) '以磅 为单位返回或设置上边距的大小。Double 类型，可读写。
        .BottomMargin = Application.InchesToPoints(0) '以磅 为单位返回或设置底端边距的大小。Double 类型，可读写。
        .HeaderMargin = Application.InchesToPoints(0) '以磅为单位返回或设置页面顶端到页眉的距离。Double 类型，可读写。
        .FooterMargin = Application.InchesToPoints(0) '以磅为单位返回或设置页脚到页面底端的距离。Double 类型，可读写。
        .PrintHeadings = False '如果打印本页时同时打印行标题和列标题，则该值为 True。仅应用于工作表。Boolean 类型，可读写。
        .PrintGridlines = False '如果在页面上打印单元格网格线，则该值为 True。仅应用于工作表。Boolean 类型，可读写。
        .PrintComments = xlPrintNoComments '返回或设置批注随工作表打印的方式。XlPrintLocation 类型，可读写。
        .PrintQuality = 600 '返回或设置打印质量。Variant 类型，可读写。
        .CenterHorizontally = True '水平居中为true，不选则为false
        .CenterVertically = False '垂直居中为true，不选则为false
        .Orientation = xlLandscape '横向打印，纵向为xlPortrait
        .Draft = False '如果打印工作表时不打印其中的图形，则该属性值为 True。Boolean 类型，可读写。
        .PaperSize = xlPaperA4 '返回或设置纸张大小。可读写 XlPaperSize。
        .FirstPageNumber = xlAutomatic '返回或设置打印指定工作表时第一页的页号。如果设为 xlAutomatic，则 Microsoft Excel 采用第一页的页号。默认值为 xlAutomatic。Long 类型，可读写。
        .Order = xlDownThenOver '返回或设置一个 XlOrder 值，该值代表 Microsoft Excel 打印一张大工作表时用于对页进行编号的顺序。
        .BlackAndWhite = False '如果指定文档中的元素以黑白方式打印，则该属性值为 True。Boolean 类型，可读写。
        .Zoom = False '自动缩放，它代表一个数值在 10% 到 400% 之间的百分比，也可以直接=95即为缩放到原来的95%
        .FitToPagesWide = 1 '调整为1页
        .FitToPagesTall = 1 '调整为1页高,=false时为N页高
        .PrintErrors = xlPrintErrorsDisplayed '设置或返回一个 XlPrintErrors 常量，该常量指定显示的打印错误类型。该功能允许用户在打印工作表时取消错误显示。可读写。
        .OddAndEvenPagesHeaderFooter = False '如果指定的 PageSetup 对象的奇数页和偶数页具有不同的页眉和页脚，则该属性值为 True。Boolean 类型，可读写。
        .DifferentFirstPageHeaderFooter = False '如果在第一页使用不同的页眉或页脚，则为 True。可读/写 Boolean 类型。
        .ScaleWithDocHeaderFooter = True '返回或设置页眉和页脚是否在文档大小更改时随文档缩放。可读/写 Boolean 类型。
        .AlignMarginsHeaderFooter = True '如果 Excel 以页面设置选项中设置的边距对齐页眉和页脚，则返回 True。可读/写 Boolean 类型。
        .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
    Application.PrintCommunication = True '恢复打印机的通信
End Sub