PPT打印技巧——你还在一页打六张吗?

转自:http://www.360doc.com/content/12/0510/17/178_210130394.shtml

很多朋友,特别是学生,在期末复习时要打印老师的幻灯片,ppt自己带的打印功能可以实现每张纸上打印6张、9张等多张幻灯片,但有个问题:一张纸上的幻灯片之间的空白很大,这样虽然能实现节约打印费的愿望,但九张幻灯片的纸上打印的字太小。看起来不方便,如何实现既能节约打印费又能把字体搞大,让幻灯片铺满整个纸张呢?下面我就具体说说这个做法。

1.设置“页面格式”

文件--->页面设置----->幻灯片大小------>选择你用于打印的纸张,一般我选择A4纸打印。这样字大。

当然你可以自定义幻灯片大小,我一般是把宽度和高度定义成A4纸的尺寸。

2.设置具体的打印格式

(1)文件--->打印----->打印内容选“幻灯片”(一定选这个,这直接影响后来的打印效果,我曾经试过,选“幻灯片”要比选“讲义”要好很多。我看过网上的说选“讲义”这直接是误导大众。这里谢谢小强的帮助,这个我是跟他学的)

(2)颜色选“灰度”或“纯黑白”这个就是要解决有的老师的ppt是用背景的。不然打印出来的效果就是背景变成黑底了。这样太浪费油墨了,打印的老板或你自己的老板也不同意呀。所以,记住这一步。

(3)右上角的打印机选项栏里的“属性”------->进去后找找那个“每页纸打印的页数”,在里面选择你要一张纸上打印的幻灯片数。我选9张,我试过这是最佳效果。然后“确定”,在打印页面再“确定”

就可以打印了。看看吧,效果一定不错。

建议:(1)在打印内容选项栏里一般不要选“幻灯片加边框”根据纸张调整大小可选。

          (2)右上角的打印机选项栏里的“属性”------->“每页纸打印的页数”,旁边有个选项“加边框”,这个选上,便于幻灯片之间的区别。

  • 2
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
ppt一页9最佳打印法,下面是代码 Attribute VB_Name = "NewMacros" Sub PPT最优打印自动排版() Attribute PPT最优打印自动排版.VB_Description = "宏在 2008-6-16 由 欣宇 录制" Attribute PPT最优打印自动排版.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.Macro1" ' '【调整页边距及页眉页脚距,适用于A4纸】 With ActiveDocument.Styles(wdStyleNormal).Font If .NameFarEast = .NameAscii Then .NameAscii = "" End If .NameFarEast = "" End With With ActiveDocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait .TopMargin = CentimetersToPoints(1.6) .BottomMargin = CentimetersToPoints(0.9) .LeftMargin = CentimetersToPoints(1.4) .RightMargin = CentimetersToPoints(1) .Gutter = CentimetersToPoints(0) .HeaderDistance = CentimetersToPoints(0.5) .FooterDistance = CentimetersToPoints(0.9) .PageWidth = CentimetersToPoints(21) .PageHeight = CentimetersToPoints(29.7) .FirstPageTray = wdPrinterDefaultBin .OtherPagesTray = wdPrinterDefaultBin .SectionStart = wdSectionNewPage .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .VerticalAlignment = wdAlignVerticalTop .SuppressEndnotes = False .MirrorMargins = False .TwoPagesOnOne = False .BookFoldPrinting = False .BookFoldRevPrinting = False .BookFoldPrintingSheets = 1 .GutterPos = wdGutterPosLeft .LayoutMode = wdLayoutModeLineGrid End With '【加页码,页脚居中处】 Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _ wdAlignPageNumberCenter, FirstPage:=True If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader If Selection.HeaderFooter.IsHeader = True Then ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Else ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then If ActiveWindow.Panes.Count = 2 Then ActiveWindow.Panes(2).Close End If ActiveWindow.View.SplitSpecial = wdPaneCurrentPageHeader Else ActiveWindow.View.SeekView = wdSeekCurrentPageHeader End If ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ActiveWindow.ActivePane.VerticalPercentScrolled = 0 '【调整每幻灯片的大小为高184宽262,也许还有更佳的值,可自己尝试】 Dim i As Integer For i = 1 To ActiveDocument.InlineShapes.Count ActiveDocument.InlineShapes(i).Height = 184 ActiveDocument.InlineShapes(i).Width = 262 Next i '【给每幻灯片加边框,感觉没有边框很难看】 Selection.HomeKey Unit:=wdStory Dim j As Integer For j = 1 To ActiveDocument.InlineShapes.Count Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend With Selection.InlineShapes(1) With .Borders(wdBorderLeft) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomatic End With With .Borders(wdBorderRight) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomatic End With With .Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomatic End With With .Borders(wdBorderBottom) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomatic End With .Borders.Shadow = False End With With Options .DefaultBorderLineStyle = wdLineStyleSingle .DefaultBorderLineWidth = wdLineWidth050pt .DefaultBorderColor = wdColorAutomatic End With Selection.MoveRight Unit:=wdCharacter, Count:=1 Next j End Sub
经导师精心指导并认可、获 98 分的毕业设计项目!【项目资源】:微信小程序。【项目说明】:聚焦计算机相关专业毕设及实战操练,可作课程设计与期末大作业,含全部源码,能直用于毕设,经严格调试,运行有保障!【项目服务】:有任何使用上的问题,欢迎随时与博主沟通,博主会及时解答。 经导师精心指导并认可、获 98 分的毕业设计项目!【项目资源】:微信小程序。【项目说明】:聚焦计算机相关专业毕设及实战操练,可作课程设计与期末大作业,含全部源码,能直用于毕设,经严格调试,运行有保障!【项目服务】:有任何使用上的问题,欢迎随时与博主沟通,博主会及时解答。 经导师精心指导并认可、获 98 分的毕业设计项目!【项目资源】:微信小程序。【项目说明】:聚焦计算机相关专业毕设及实战操练,可作课程设计与期末大作业,含全部源码,能直用于毕设,经严格调试,运行有保障!【项目服务】:有任何使用上的问题,欢迎随时与博主沟通,博主会及时解答。 经导师精心指导并认可、获 98 分的毕业设计项目!【项目资源】:微信小程序。【项目说明】:聚焦计算机相关专业毕设及实战操练,可作课程设计与期末大作业,含全部源码,能直用于毕设,经严格调试,运行有保障!【项目服务】:有任何使用上的问题,欢迎随时与博主沟通,博主会及时解答。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值