[分享]【原创】PPT最佳打印法(8张/页法、9张/页法) [复制链接]

本想早些发出来与大家共享的，只是一直忙于考试。
近日见有人问及此事，干脆录了个视频，见附件，希望能讲清楚了。别被我这个帖子的长度吓着了，其实做起来很简单。
有需要的可以看看，尤其是经常要整理打印课件的学习委员们。

每页8张PPT，无间隙，绝对节省纸张。如果想每页9张PPT的显得有些挤，且没有页码。自己取舍吧。
无论8页还是9页的，每一张幻灯片大小其实都是一样的，只是纸张横排竖排的结果。效果见下图：

图片:ppt.jpg

图片:9.jpg

---

制作步骤要点：

第一步：Word：工具—→宏—→Visual Basic 编辑器  —→文件—→导入文件。宏命令文件见附件。（保存一下，以后就不用了再重复导入了）

第二步：Powerpoint：文件—→另存为—→windows图元文件。（如果PPT有背景，可先将背景模板改为白版形式）

第三步：Word：插入—→图片—→来自文件。用快捷键“Ctrl+A”全选刚才产生的所有图片，插入。

第五步：Word：工具—→宏—→宏，选择第一步中导入的那个宏，运行。

完工！

大神 为什么我用一页9张ppt自动排版宏命令做出来的是一页6张ppt呢  是图像太大了吗

请问怎么改为九张啊？

学习了，谢谢！佩服楼主！

谢了，呵呵

犀利啊~~~~~~~~~~~~~

看看我改的参数值，可能对你有帮助

# 【调整每张幻灯片的大小为高184宽262，也许还有更佳的值，可自己尝试】
#    
#     Dim i As Integer
#     For i = 1 To ActiveDocument.InlineShapes.Count
#         ActiveDocument.InlineShapes(i).Height = 184——改成178会好一点 我用184 每张纸是6片
#         ActiveDocument.InlineShapes(i).Width = 262
#     Next i

可能我这个也是个例吧 仅供参考

我想请教一下，为什么好像OFFICE2007用了之后格页面设置不太对呢，就是没有那种3*3的样子，调了一下，最多弄成2*3,底下还空白一片

瞻仰哥哥下。。。

这个太需要了。谢谢你！楼主

山大，强人出没之地也

超good~~~~~~

宏命令是什么呀？

很实用啊