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

电脑-常用软件-解决幻灯片打印讲义从页码1开始的方法雷鸣老师给我提了个很高级的问题：打印ppt讲义时，如何让页码不是从1开始。因为有时有好几个幻灯片打印，希望页码顺序能够相连，或者打印一套幻灯片的时候，中间卡纸了，要重新打印。ppt在这一点做到过份，其在重新打印的时候，出来的页面还是页码1。 网络上提出类似问题的人很多，大家都在怪微软公司在ppt打印方面的不通人性，但基本上没有看到简单有效的解决方案。综合自己实践研究，大致有以下几种解决方案可供参考。 1、利用空白幻灯片：在ppt的前面插入足够多的空白幻灯片，办法笨是笨了点，毕竟也是方法； 2、一页一页打印：设置幻灯片母版中的讲义母版，设置右下角数字区的“#”，使用固定数字，改一页打一页，呵呵。或者直接利用页脚的功能，在打印预览中的“选项”-“备注和讲义”中去除页码，在页脚中输入数字，这里的页脚位置也是在幻灯片母版中修改的，同样是一页一页打印。 3、先打印一系列仅仅打印了页码的空白纸张，然后利用这些已经有数字的白纸来打印。这个办法其实比上面两种要好，最容易操作。 4、上面三种方案都是临时的方案，有高人写了一个VBA（宏）来解决，我做了回好人，把他的代码汉化了： （1）在工具菜单上选择“宏”-“宏”，或者直接按快捷键“Alt+F8”，在宏名中随便输个名字，如“dayin”，然后点击“编辑”； （2）在编辑窗口输入以下代码： DimiAsLong DimlStartAsLong DimlStopAsLong DimlHandoutKindAsLong DimlSlideAsLong DimlSlideEndAsLong DimppHandoutKindAsPpPrintOutputType DimvbConfirmAsVbMsgBoxResult lSlide=InputBox(从哪一张幻灯片开始打印？,开始幻灯片,1) lStart=InputBox(讲义起始页码编号:,讲义起始页码,1) lHandoutKind=InputBox(每页几张幻灯片?&vbNewLine&2,3,4,6,9？,讲义打印类型,4) SelectCaselHandoutKind Case1,2 ppHandoutKind=ppPrintOutputTwoSlideHandouts lHandoutKind=2 Case3 ppHandoutKind=ppPrintOutputThreeSlideHandouts lHandoutKind=3 Case4 ppHandoutKind=ppPrintOutputFourSlideHandouts lHandoutKind=4 Case5,6 ppHandoutKind=ppPrintOutputSixSlideHandouts lHandoutKind=6 CaseElse ppHandoutKind=ppPrintOutputNineSlideHandouts lHandoutKind=9 EndSelect vbConfirm=MsgBox(Youhavechosentoprint&lHandoutKind&-uphandouts,startingatpage&lStart&vbNewLine&andslidenumber&lSlide&.,vbOKCancel) IfvbConfirm=vbOKThen lStop=Round(ActivePresentation.Slides.Count-(lSlide-1)/lHandoutKind) IfRound(ActivePresentation.Slides.Count-(lSlide-1)ModlHandoutKind)ActivePresentation.Slides.CountThen lSlide=ActivePresentation.Slides.Count EndIf IflSlideEndActivePresentation.Slides.CountThen lSlideEnd=ActivePresentation.Slides.Count EndIf .AddStart:=lSlide,End:=lSlideEnd lSlide=lSlide+lHandoutKind EndWith Setnumberofcopiesto1. .NumberOfCopies=1 .OutputType=ppHandoutKind .HandoutOrder=ppPrintHandoutVerticalFirst EndWith ActivePresentation.PrintOut Nexti EndIf ActivePresentation.HandoutMaster.Shapes(4).TextFrame.TextRange.Text= ActivePresentation.NotesMaster.HeadersFooters.