VBA 打印设置相关属性及方法

打印设置说明，以下均为默认值。

With ActiveSheet.PageSetup
    .PrintTitleRows = ""                                '工作表打印标题：顶端标题行(R)
    .PrintTitleColumns = ""                             '工作表打印标题：左端标题列(C)
End With 

ActiveSheet.PageSetup.PrintArea = ""                    '工作表打印区域(A)

With ActiveSheet.PageSetup
    .LeftHeader = ""                                    '自定义页眉：左(L)
    .CenterHeader = ""                                  '页眉/自定义页眉：中(C)
    .RightHeader = ""                                   '自定义页眉：右(R)
    .LeftFooter = ""                                    '自定义页脚：左(L)
    .CenterFooter = ""                                  '页脚/自定义页脚：中(C)
    .RightFooter = ""                                   '自定义页脚：右(R)
    .LeftMargin = Application.InchesToPoints(0.75)      '页边距：左(L)_1.9厘米
    .RightMargin = Application.InchesToPoints(0.75)     '页边距：右(R)_1.9厘米
    .TopMargin = Application.InchesToPoints(1)          '页边距：上(T)_2.5厘米
    .BottomMargin = Application.InchesToPoints(1)       '页边距：下(B)_2.5厘米
    .HeaderMargin = Application.InchesToPoints(0.5)     '页边距：页眉(A)_1.3厘米
    .FooterMargin = Application.InchesToPoints(0.5)     '页边距：页脚(F)_1.3厘米
    .PrintHeadings = False                              '工作表打印：行号列标(L)
    .PrintGridlines = False                             '工作表打印：网格线(G)
    .PrintComments = xlPrintNoComments                  '工作表打印批注(M)：无/(工作表末尾) xlPrintSheetEnd/(如同工作表中的显示) xlPrintIace
    .PrintQuality = 180                                 '页面打印质量(Q)：180/360点 英寸
    .CenterHorizontally = False                         '页边距居中方式：水平(Z)
    .CenterVertically = False                           '页边距居中方式：垂直(V)
    .Orientation = xlPortrait                           '页面方向：纵向(T) xlPortrait/ 横向 (L)xlLandscape
    .Draft = False                                      '工作表打印：按草稿方式(Q)
    .PaperSize = xlPaperA4                              '页面纸张大小(Z)：A4
    .FirstPageNumber = xlAutomatic                      '页面起始页码：自动
    .Order = xlDownThenOver                             '工作表打印顺序：先列后行(D)/先行后列(V) xlOverThenDown
    .BlackAndWhite = False                              '工作表打印：单色打印(B)
    .Zoom = 100                                         '页面缩放比例：100%     若选择页面缩放比例，则下面两项没有。
    .Zoom = False                                       '页面缩放比例：未选择   若选择调整页面则此项必为False，且与下面两项一起出现。
    .FitToPagesWide = 1                                 '页面缩放：调整为1页高
    .FitToPagesTall = 1                                 '页面缩放：调整为1页宽
    .PrintErrors = xlPrintErrorsDisplayed               '工作表打印错误单元格打印为(E)：显示值/<空白> xlPrintErrorsBlank/-- xlPrintErrorsDash/#N/A xlPrintErrorsNA
EndWith