用户注册



邮箱:

密码:

用户登录


邮箱:

密码:
记住登录一个月忘记密码?

发表随想


还能输入:200字
云代码 - vb代码库

打印设置所有参数

2020-08-18 作者:麒麟举报

[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


分享到:
更多

网友评论    (发表评论)


发表评论:

评论须知:

  • 1、评论每次加2分,每天上限为30;
  • 2、请文明用语,共同创建干净的技术交流环境;
  • 3、若被发现提交非法信息,评论将会被删除,并且给予扣分处理,严重者给予封号处理;
  • 4、请勿发布广告信息或其他无关评论,否则将会删除评论并扣分,严重者给予封号处理。