达尔优鼠标驱动打不开:VBA 打印设置
来源:百度文库 编辑:九乡新闻网 时间:2024/05/02 08:44:43
'打印设置说明,以下均为默认值。
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
End With
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
End With
VBA 打印设置
CAD打印设置0
CAD 打印设置1
CAD打印设置111
CAD打印设置(1)
金蝶领料单打印设置
win7局域网打印设置
CAD打印设置
Word打印设置技巧
利用VBA设置工作表使用权限
Excel中打印设置技巧
Excel动画教程:设置打印区域
Word2010如何设置双面打印
用Excel和VBA轻松实现桌签批量打印
取得預設的打印機及設置預設的打印機(VBA)
在线打印代码以及打印设置 - 按钮链接 - 网页特效代码
在Word2007打印预览中设置多页打印预览
Office Word打印设置技巧六则
分享Office Word打印设置技巧
Excel文档打印设置的一般方法
Word打印设置技巧六则
巧妙设置 Word2007打印省钱技巧
文档排版、页面设置和页面打印
Word 打印设置技巧几则