神马文学网在1张A4纸上完美排版打印（8）9张幻灯片
来源：百度文库 编辑：神马文学网 时间：2024/04/28 18:31:33
1、合并需要打印的多个（如果有多个）ppt文件；
有时候我们需要把多个PowerPoint演示文稿合并到一个演示文稿中，同时保留源幻灯片的模板，可以通过下面的操作实现：打开多个PowerPoint演示文件中的一个，单击PowerPoint“工具”菜单中的“比较合并演示文稿”命令，弹出“选择要与当前演示文稿合并的文件”对话框，按住Ctrl键选中需要合并的演示文件，单击“合并”按钮，系统会弹出警告提示，单击其中的“继续”按钮就可以进行多个演示文稿的合并操作了。
2、将PPT模板统一改为空白；
将ppt背景模板全部改为采用白版形式，这样可以减少最终的word文件体积，也可以节约油墨，但要注意调整模板后幻灯片没有出现错位。
3、输出图片；
慢慢实践发现ppt可以另存为图片，这样插入word当然最好不过，尝试了里面种格式的图片，发现只有wmf格式的效果最好！其他格式导出后清晰度都明显下降，打出来的效果极差。操作过程：“文件—→另存为—→windows图元文件”。
方法一：
4、设置页面；
Word：文件—→页面设置—→上下左右边距全部调整为0.5cm（可以根据情况试验适当增加此数），选择横向页面。
5、导入图片；
Word：插入—→图片—→来自文件，将刚才产生的所有图元文件全部选择插入。
6、运行宏；
（1） 点击“工具”—>“宏”—>“宏”；
（2） 其一个自己容易记住的名字，创建一个新宏；
（3） 请把下面的内容复制到里面，然后保存；
Dim i As Integer
For i = 1 To ActiveDocument.InlineShapes.Count
With ActiveDocument.InlineShapes(i)
.Height = 238 * 0.7
.Width = 315 * 0.8
.Borders(wdBorderTop).LineStyle = wdLineStyleSingle
.Borders(wdBorderTop).LineWidth = wdLineWidth050pt
.Borders(wdBorderTop).Color = wdColorAutomatic
End With
Next i
（4） 保存，退出；
（5） Word：工具—→宏—→宏，选择刚刚创建的宏，运行。
7、将得到的word文档输出为PDF以减小文档体积；
8、打印，大功告成；
方法二：直接运行一页8张PPT自动排版宏命令.bas
方法三：直接运行一页9张PPT自动排版宏命令.bas
