切换到宽版
发帖 回复
返回列表
12345
  • 97009阅读
  • 72回复

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

 上一主题 下一主题
离线欣宇
啄木元老
 

发帖
5723
啄木币
228995
鲜花
1684
只看楼主 倒序阅读 使用道具 0楼 发表于: 2008-06-16
— 本帖被 超级玛利 设置为精华(2008-06-19) —
本想早些发出来与大家共享的，只是一直忙于考试。
近日见有人问及此事，干脆录了个视频，见附件，希望能讲清楚了。别被我这个帖子的长度吓着了，其实做起来很简单。
有需要的可以看看，尤其是经常要整理打印课件的学习委员们。

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









制作步骤要点：

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

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

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

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

完工！
附件: 一页8张PPT自动排版宏命令.bas (5 K) 下载次数:1535
附件: 最终效果演示.doc (95 K) 下载次数:705
附件: ppt优化打印录像.rar (1885 K) 下载次数:1078
附件: 一页9张PPT自动排版宏命令.bas (4 K) 下载次数:1053
共8条评分
memory 鲜花 +2 支持高手 2008-06-16
silon 鲜花 +1 原创精品 2008-06-16
shepherd 鲜花 +2 原创精品 2008-06-16
doctor_li 鲜花 +1 不错不错 2008-06-16
hehehe 鲜花 +1 建议申精 2008-06-16
论坛总参谋 鲜花 +1 赞！~~ 2008-06-16
刀刀.. 鲜花 +1 精品 2008-06-16
ll熊猫 鲜花 +1 师父！ 2008-06-16
评价一下你浏览此帖子的感受

精彩
感动
搞笑
开心
愤怒
无聊
灌水
一路向前
回复
举报
离线欣宇
啄木元老

发帖
5723
啄木币
228995
鲜花
1684
只看该作者 1楼 发表于: 2008-06-16
此方法所用宏命令为纯属自己突发灵感加幸运。一页8张ppt的代码如下，贴出来供高手讨论（9张的就是改了横排，去掉页码）：（什么是宏）
复制代码
  1. Attribute VB_Name = "NewMacros"
  2. Sub 一页8张PPT自动排版()
  3. Attribute 一页8张PPT自动排版.VB_Description = "宏在 2008-6-16 由 欣宇 录制"
  4. Attribute 一页8张PPT自动排版.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.Macro1"
  5. '
  6. '制作：啄木论坛(www.zhuomu.cn) 欣宇 版权所有
  7. '
  10. '【调整页边距及页眉页脚距，适用于A4纸】
  12.     With ActiveDocument.Styles(wdStyleNormal).Font
  13.         If .NameFarEast = .NameAscii Then
  14.             .NameAscii = ""
  15.         End If
  16.         .NameFarEast = ""
  17.     End With
  18.     With ActiveDocument.PageSetup
  19.         .LineNumbering.Active = False
  20.         .Orientation = wdOrientPortrait
  21.         .TopMargin = CentimetersToPoints(1.6)
  22.         .BottomMargin = CentimetersToPoints(0.9)
  23.         .LeftMargin = CentimetersToPoints(1.4)
  24.         .RightMargin = CentimetersToPoints(1)
  25.         .Gutter = CentimetersToPoints(0)
  26.         .HeaderDistance = CentimetersToPoints(0.5)
  27.         .FooterDistance = CentimetersToPoints(0.9)
  28.         .PageWidth = CentimetersToPoints(21)
  29.         .PageHeight = CentimetersToPoints(29.7)
  30.         .FirstPageTray = wdPrinterDefaultBin
  31.         .OtherPagesTray = wdPrinterDefaultBin
  32.         .SectionStart = wdSectionNewPage
  33.         .OddAndEvenPagesHeaderFooter = False
  34.         .DifferentFirstPageHeaderFooter = False
  35.         .VerticalAlignment = wdAlignVerticalTop
  36.         .SuppressEndnotes = False
  37.         .MirrorMargins = False
  38.         .TwoPagesOnOne = False
  39.         .BookFoldPrinting = False
  40.         .BookFoldRevPrinting = False
  41.         .BookFoldPrintingSheets = 1
  42.         .GutterPos = wdGutterPosLeft
  43.         .LayoutMode = wdLayoutModeLineGrid
  44.     End With
  46. '【加页码，页脚居中处】
  47.     
  48.     Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
  49.         wdAlignPageNumberCenter, FirstPage:=True
  50.     If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
  51.         ActiveWindow.Panes(2).Close
  52.     End If
  53.     If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
  54.         ActivePane.View.Type = wdOutlineView Then
  55.         ActiveWindow.ActivePane.View.Type = wdPrintView
  56.     End If
  57.     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
  58.     If Selection.HeaderFooter.IsHeader = True Then
  59.         ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
  60.     Else
  61.         ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
  62.     End If
  63.     If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
  64.         ActivePane.View.Type = wdOutlineView Then
  65.         If ActiveWindow.Panes.Count = 2 Then
  66.             ActiveWindow.Panes(2).Close
  67.         End If
  68.         ActiveWindow.View.SplitSpecial = wdPaneCurrentPageHeader
  69.     Else
  70.         ActiveWindow.View.SeekView = wdSeekCurrentPageHeader
  71.     End If
  72.     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
  73.     ActiveWindow.ActivePane.VerticalPercentScrolled = 0
  74.     
  75. '【调整每张幻灯片的大小为高184宽262，也许还有更佳的值，可自己尝试】
  76.     
  77.     Dim i As Integer
  78.     For i = 1 To ActiveDocument.InlineShapes.Count
  79.         ActiveDocument.InlineShapes(i).Height = 184
  80.         ActiveDocument.InlineShapes(i).Width = 262
  81.     Next i
  82.     
  83. '【给每张幻灯片加边框，感觉没有边框很难看】
  84.     
  85.     Selection.HomeKey Unit:=wdStory
  86.     
  87.     Dim j As Integer
  88.     For j = 1 To ActiveDocument.InlineShapes.Count
  89.       
  90.     Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
  91.     With Selection.InlineShapes(1)
  92.         With .Borders(wdBorderLeft)
  93.             .LineStyle = wdLineStyleSingle
  94.             .LineWidth = wdLineWidth050pt
  95.             .Color = wdColorAutomatic
  96.         End With
  97.         With .Borders(wdBorderRight)
  98.             .LineStyle = wdLineStyleSingle
  99.             .LineWidth = wdLineWidth050pt
  100.             .Color = wdColorAutomatic
  101.         End With
  102.         With .Borders(wdBorderTop)
  103.             .LineStyle = wdLineStyleSingle
  104.             .LineWidth = wdLineWidth050pt
  105.             .Color = wdColorAutomatic
  106.         End With
  107.         With .Borders(wdBorderBottom)
  108.             .LineStyle = wdLineStyleSingle
  109.             .LineWidth = wdLineWidth050pt
  110.             .Color = wdColorAutomatic
  111.         End With
  112.         .Borders.Shadow = False
  113.     End With
  114.     With Options
  115.         .DefaultBorderLineStyle = wdLineStyleSingle
  116.         .DefaultBorderLineWidth = wdLineWidth050pt
  117.         .DefaultBorderColor = wdColorAutomatic
  118.     End With
  119.     
  120.         Selection.MoveRight Unit:=wdCharacter, Count:=1
  122.     Next j
  123.     
  124. End Sub
共5条评分
上帝右手 鲜花 +2 2008-06-16
月岛 鲜花 +2 太强了~~ 2008-06-16
小鹏8号 鲜花 +1 应该是什么是宏吧？ 呵呵 2008-06-16
mmmsxc 鲜花 +2 感谢管理员大大,支持管理 .. 2008-06-16
论坛总参谋 鲜花 +1 怎一个强字了得 2008-06-16
一路向前
回复
举报
离线上帝右手
啄木站务

发帖
5014
啄木币
24160
鲜花
841
只看该作者 2楼 发表于: 2008-06-16
做出来了  老大忒BT了
回复
举报
离线feixian9096
渐入佳境
发帖
328
啄木币
309
鲜花
134
只看该作者 3楼 发表于: 2008-06-16
高、高手！  
回复
举报
离线爱生活
炉火纯青
发帖
1351
啄木币
510
鲜花
115
只看该作者 4楼 发表于: 2008-06-16
欣宇不愧是技术主管

牛X啊
回复
举报
离线小鹏8号
啄木版主

发帖
10284
啄木币
1
鲜花
2694
只看该作者 5楼 发表于: 2008-06-16
这杨挺省钱的
以前都是一页纸打印四张~
回复
举报
离线jellyfirst
略有小成
发帖
463
啄木币
423
鲜花
14
只看该作者 6楼 发表于: 2008-06-16
。。。。。。。。。。。。。。。
回复
举报
离线花相似
略有小成
发帖
422
啄木币
577
鲜花
42
只看该作者 7楼 发表于: 2008-06-17
我们都是一页九个呢
回复
举报
离线会飞的企鹅
啄木站务

发帖
7611
啄木币
1
鲜花
594
只看该作者 8楼 发表于: 2008-06-17
太强大了
回复
举报
离线论坛总参谋
啄木巡版

发帖
3521
啄木币
2891
鲜花
915
只看该作者 9楼 发表于: 2008-07-29
佩服。牛X。。
回复
举报
离线欣雨
略有小成
发帖
225
啄木币
3141
鲜花
92
只看该作者 10楼 发表于: 2008-07-29
帮顶
回复
举报
离线欣雨
略有小成
发帖
225
啄木币
3141
鲜花
92
只看该作者 11楼 发表于: 2008-07-29
完成！您真太有才拉！  
回复
举报
离线我有一个苹果
登堂入室
发帖
218
啄木币
1334
鲜花
60
只看该作者 12楼 发表于: 2008-07-30
谢啦!
回复
举报
离线天殇
自成一派
发帖
10012
啄木币
30242
鲜花
648
只看该作者 13楼 发表于: 2008-07-30
大神,拜一下~~orz
回复
举报
离线单伟
渐入佳境
发帖
684
啄木币
237
鲜花
76
只看该作者 14楼 发表于: 2008-07-30
牛A，呵呵
回复
举报
发帖 回复
返回列表
12345
快速回复
限100 字节
 
上一个 下一个