ppt打印讲义 如何实现每页打印18张幻灯片？

本人常需要打印老师的课件，为了节约，想每页纸打印18张幻灯片（经测试可以看清）但是powerpoint中最多只能打印9张。
为了实现这个目的，我用powerpoint发送到word（一页有3张幻灯片，幻灯片大小适合），接着一张一张的幻灯片复制粘贴到新建文档中。这样虽实现了目的，但工作太繁琐。
前不久试了用vba来简化工作，能力有限，仅实现了简化复制粘贴的工作。
希望有高人能教我，只要点击一下，就可以实现发送讲义、排版（一页18张幻灯片）和保存的动作。 也想知道“发送讲义”这个命令的宏代码。
以下是我通过录制宏实现的一部分简化工作的代码：
Sub 课件()
'
' 宏8 宏
'
'
Selection.MoveRight Unit:=wdCharacter, Count:=6
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
For i = 1 To 73
Selection.Copy
Windows("文档 2").Activate
Selection.PasteAndFormat (wdPasteDefault)
Windows("文档 1").Activate
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Next i

End Sub
很感谢zeus3288的回答，但是fineprine不能解决我的问题。试用了fineprine，还是一个不错的软件。我已经解决了问题。谢谢zeus3288，把分给你了

ppt打印讲义 如何实现每页打印18张幻灯片？ ppt打印讲义问题 ppt如何实现一张打印多页? 打印幻灯片讲义时,每页打印6个讲义的格式中,每个讲义的框能放大吗? PDF 文档如何以讲义的形式打印，像PPT那样，把几页文档打印在一张纸上，才不会浪费啊 PPT讲义模式打印的时候如何把幻灯片调到最大 EXCEL表格打印如何实现每一页自动打印标题？ 怎样可以将讲义(ppt文件)满幅打印啊？ 在PowerPoint中，按讲义打印演示文稿时每页幻灯片数允许选择多少？ 请问PDF文件如何打印讲义？