电脑-常用软件-解决幻灯片打印讲义从页码1开始的方法.docVIP

电脑-常用软件-解决幻灯片打印讲义从页码1开始的方法 ????雷鸣老师给我提了个很高级的问题：打印ppt讲义时，如何让页码不是从1开始。因为有时有好几个幻灯片打印，希望页码顺序能够相连，或者打印一套幻灯片的时候，中间卡纸了，要重新打印。ppt在这一点做到过份，其在重新打印的时候，出来的页面还是页码1。 ??????网络上提出类似问题的人很多，大家都在怪微软公司在ppt打印方面的不通人性，但基本上没有看到简单有效的解决方案。综合自己实践研究，大致有以下几种解决方案可供参考。 1、利用空白幻灯片：在ppt的前面插入足够多的空白幻灯片，办法笨是笨了点，毕竟也是方法； 2、一页一页打印：设置幻灯片母版中的讲义母版，设置右下角数字区的“#”，使用固定数字，改一页打一页，呵呵。或者直接利用页脚的功能，在打印预览中的“选项”-“备注和讲义”中去除页码，在页脚中输入数字，这里的页脚位置也是在幻灯片母版中修改的，同样是一页一页打印。 3、先打印一系列仅仅打印了页码的空白纸张，然后利用这些已经有数字的白纸来打印。这个办法其实比上面两种要好，最容易操作。 4、上面三种方案都是临时的方案，有高人写了一个VBA（宏）来解决，我做了回好人，把他的代码汉化了： （1）?在工具菜单上选择“宏”-“宏”，或者直接按快捷键“Alt+F8”，在宏名中随便输个名字，如“dayin”，然后点击“编辑”； （2）在编辑窗口输入以下代码： Dim?i?As?Long Dim?lStart?As?Long Dim?lStop?As?Long Dim?lHandoutKind?As?Long Dim?lSlide?As?Long Dim?lSlideEnd?As?Long Dim?ppHandoutKind?As?PpPrintOutputType Dim?vbConfirm?As?VbMsgBoxResult ’ lSlide?=?InputBox(从哪一张幻灯片开始打印？,?开始幻灯片,?1) ’ lStart?=?InputBox(讲义起始页码编号:?,?讲义起始页码,?1) ’ lHandoutKind?=?InputBox(每页几张幻灯片???vbNewLine??2,?3,?4,?6,?9？,?讲义打印类型,?4) ’ Select?Case?lHandoutKind Case?1,?2 ppHandoutKind?=?ppPrintOutputTwoSlideHandouts lHandoutKind?=?2 Case?3 ppHandoutKind?=?ppPrintOutputThreeSlideHandouts lHandoutKind?=?3 Case?4 ppHandoutKind?=?ppPrintOutputFourSlideHandouts lHandoutKind?=?4 Case?5,?6 ppHandoutKind?=?ppPrintOutputSixSlideHandouts lHandoutKind?=?6 Case?Else ppHandoutKind?=?ppPrintOutputNineSlideHandouts lHandoutKind?=?9 End?Select ’ vbConfirm?=?MsgBox(You?have?chosen?to?print???lHandoutKind??-up?handouts,?starting?at?page???lStart??vbNewLine???and?slide?number???lSlide??.,?vbOKCancel) ’ If?vbConfirm?=?vbOK?Then ’ lStop?=?Round((ActivePresentation.Slides.Count?-?(lSlide?-?1))?/?lHandoutKind) If?Round((ActivePresentation.Slides.Count?-?(lSlide?-?1))?Mod?lHandoutKind)?=?(lHandoutKind?/?2)?Then lStop?=?lStop?+?1 End?If ’ For?i?=?1?To?lStop ’ ActivePresentation.NotesMaster.HeadersFooters.SlideNumber.Visible?=?msoFalse ActivePresentation.HandoutMaster.Shapes(4).TextFrame.TextRange.Text?=?lStart lStart?=?l