小册子打印代码


来源:高中英语教学交流
发布时间:2012-07-07 09:37:00
查看次数:

内容提要:最近发现,原来可以不用第三方软件可以实现小册子打印的效果,而且还很方便。以下提供代码,另外,会在下一个版本的ZSHUNJ工具箱中增加。

Sub 小册子打印()
'
' 宏在 2012-7-6 由 www.zshunj.cn录制
'
    Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
        wdAlignPageNumberCenter, FirstPage:=True
    With ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .TopMargin = CentimetersToPoints(3.17)
        .BottomMargin = CentimetersToPoints(3.17)
        .LeftMargin = CentimetersToPoints(2.54)
        .RightMargin = CentimetersToPoints(2.54)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.27)
        .FooterDistance = CentimetersToPoints(1.27)
        .PageWidth = CentimetersToPoints(27.94)
        .PageHeight = CentimetersToPoints(21.59)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = True
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = True
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
        .LayoutMode = wdLayoutModeDefault
    End With
End Sub


相关文章
·利用打印机迁移功能实现三个步骤快速批量安装所有网络打印机10-27
·删除 word 中所有的中文字符03-17
·一步去掉页眉横线的方法08-02
·视频加速脚本TimerHooker (计时器掌控者)06-17
·自动双面打印操作说明10-14
·相片裁剪操作方法10-21
·[亲测有效]excel批量修改文件名10-29
·excel删除数字保留文本02-04
·word 如何批量在数字题号后加符号02-14
·Win10系统开机启动文件夹在哪里?04-16
最新文章
阅读排行