|
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 详情：http://www.cnblogs.com/go-jzg/p/5738169.html |
|
|
