本文目录一览：
ppt打印成讲义如何加页码
讲义的页码是按纸张的页数的。
“文件”——〉“打印预览”——〉“选项”——〉“页眉和页脚”——〉“备注和讲义”——〉勾选“页码”
如何设置幻灯片的页码编号从2开始
雷鸣老师给我提了个很高级的问题：打印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 = lStart + 1
'
With ActivePresentation.PrintOptions
'
.RangeType = ppPrintSlideRange
With .Ranges
'
.ClearAll
'
lSlideEnd = lSlide + lHandoutKind - 1
'
If lSlide ActivePresentation.Slides.Count Then
lSlide = ActivePresentation.Slides.Count
End If
If lSlideEnd ActivePresentation.Slides.Count Then
lSlideEnd = ActivePresentation.Slides.Count
End If
.Add Start:=lSlide, End:=lSlideEnd
lSlide = lSlide + lHandoutKind
End With
'
' Set number of copies to 1.
'
.NumberOfCopies = 1
'
.OutputType = ppHandoutKind
'
.HandoutOrder = ppPrintHandoutVerticalFirst
End With
'
ActivePresentation.PrintOut
Next i
End If
'
ActivePresentation.HandoutMaster.Shapes(4).TextFrame.TextRange.Text = ""
ActivePresentation.NotesMaster.HeadersFooters.SlideNumber.Visible = msoTrue
（3）运行宏，根据提示输入数字即可。
其实这段VBA代码不过将上面的笨办法使用机器来自动实现罢了，因为你会发现打印机中输出的文件是一页一页的文件，而不是多页的。
PPT文件打印讲义时，怎样才能把页码设到居中位置
是讲义的页码还是幻灯片的页码？
如果是讲义的页码，页码区域是可以拖拉调整的，就像文本框一样，拉到中间就可以了。
PPT讲义里如何改页码？
您好，我是宁波理工信管专业的沈佳伟（O(∩_∩)O~留个小名~~~）LZ问的问题不是很明确，所以笼统的讲一下。设置PowerPoint页码的方法，其实可以在PowerPoint幻灯片母版实现这一功能。
一、打开已经做好的PowerPoint文件，首先要为每页幻灯片加入编号。点击菜单中“插入”下的“幻灯片编号”选项，选择“幻灯片编号”，然后点选“全部应用”。
二、接下来看看整个PowerPoint总共有多少页，例如这个PowerPoint有15页，然后就要进入幻灯片母版状态对母版进行编辑。点击菜单“视图”下“母版”选项中的“幻灯片母版”进入母版状态。
三、观察幻灯片母版，母版的左下角有一个叫“数字区”的地方，用鼠标点击一下就可以进行编辑。移动光标到“#”符号的后面，然后输入“/15”，当然，“/15”这部分你可以改成自己想要的形式，如“共15页”等等。
四、编辑完成后，点击菜单“视图”下的“普通”命令，退出母版状态，并保存整个文件。
这样就可以在每一页的页码后看见自己所设定的总页数了。
提示：当增删PowerPoint的页数时，还需要更改这里的设置，因为这里不可以自动识别PowerPoint的总页数。
谢谢·····
ppt讲义中如何更改起始页码
我也经常碰到这个问题，只好用笨办法：在母版中去掉页码，然后手工设置。很麻烦，一次改一页，一次打一页。[em00]
