论坛风格切换切换到宽版
  • 94478阅读
  • 72回复

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

上一主题 下一主题
离线欣宇
 
发帖
5696
啄木币
234959
鲜花
1682
只看楼主 倒序阅读 使用道具 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) 下载次数:1525
附件: 最终效果演示.doc (95 K) 下载次数:703
附件: ppt优化打印录像.rar (1885 K) 下载次数:1074
附件: 一页9张PPT自动排版宏命令.bas (4 K) 下载次数:1044
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
评价一下你浏览此帖子的感受

精彩

感动

搞笑

开心

愤怒

无聊

灌水
一路向前
离线欣宇
发帖
5696
啄木币
234959
鲜花
1682
只看该作者 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. '
  8. '【调整页边距及页眉页脚距,适用于A4纸】
  9.     With ActiveDocument.Styles(wdStyleNormal).Font
  10.         If .NameFarEast = .NameAscii Then
  11.             .NameAscii = ""
  12.         End If
  13.         .NameFarEast = ""
  14.     End With
  15.     With ActiveDocument.PageSetup
  16.         .LineNumbering.Active = False
  17.         .Orientation = wdOrientPortrait
  18.         .TopMargin = CentimetersToPoints(1.6)
  19.         .BottomMargin = CentimetersToPoints(0.9)
  20.         .LeftMargin = CentimetersToPoints(1.4)
  21.         .RightMargin = CentimetersToPoints(1)
  22.         .Gutter = CentimetersToPoints(0)
  23.         .HeaderDistance = CentimetersToPoints(0.5)
  24.         .FooterDistance = CentimetersToPoints(0.9)
  25.         .PageWidth = CentimetersToPoints(21)
  26.         .PageHeight = CentimetersToPoints(29.7)
  27.         .FirstPageTray = wdPrinterDefaultBin
  28.         .OtherPagesTray = wdPrinterDefaultBin
  29.         .SectionStart = wdSectionNewPage
  30.         .OddAndEvenPagesHeaderFooter = False
  31.         .DifferentFirstPageHeaderFooter = False
  32.         .VerticalAlignment = wdAlignVerticalTop
  33.         .SuppressEndnotes = False
  34.         .MirrorMargins = False
  35.         .TwoPagesOnOne = False
  36.         .BookFoldPrinting = False
  37.         .BookFoldRevPrinting = False
  38.         .BookFoldPrintingSheets = 1
  39.         .GutterPos = wdGutterPosLeft
  40.         .LayoutMode = wdLayoutModeLineGrid
  41.     End With
  42. '【加页码,页脚居中处】
  43.     
  44.     Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
  45.         wdAlignPageNumberCenter, FirstPage:=True
  46.     If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
  47.         ActiveWindow.Panes(2).Close
  48.     End If
  49.     If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
  50.         ActivePane.View.Type = wdOutlineView Then
  51.         ActiveWindow.ActivePane.View.Type = wdPrintView
  52.     End If
  53.     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
  54.     If Selection.HeaderFooter.IsHeader = True Then
  55.         ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
  56.     Else
  57.         ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
  58.     End If
  59.     If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
  60.         ActivePane.View.Type = wdOutlineView Then
  61.         If ActiveWindow.Panes.Count = 2 Then
  62.             ActiveWindow.Panes(2).Close
  63.         End If
  64.         ActiveWindow.View.SplitSpecial = wdPaneCurrentPageHeader
  65.     Else
  66.         ActiveWindow.View.SeekView = wdSeekCurrentPageHeader
  67.     End If
  68.     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
  69.     ActiveWindow.ActivePane.VerticalPercentScrolled = 0
  70.     
  71. '【调整每张幻灯片的大小为高184宽262,也许还有更佳的值,可自己尝试】
  72.     
  73.     Dim i As Integer
  74.     For i = 1 To ActiveDocument.InlineShapes.Count
  75.         ActiveDocument.InlineShapes(i).Height = 184
  76.         ActiveDocument.InlineShapes(i).Width = 262
  77.     Next i
  78.     
  79. '【给每张幻灯片加边框,感觉没有边框很难看】
  80.     
  81.     Selection.HomeKey Unit:=wdStory
  82.     
  83.     Dim j As Integer
  84.     For j = 1 To ActiveDocument.InlineShapes.Count
  85.       
  86.     Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
  87.     With Selection.InlineShapes(1)
  88.         With .Borders(wdBorderLeft)
  89.             .LineStyle = wdLineStyleSingle
  90.             .LineWidth = wdLineWidth050pt
  91.             .Color = wdColorAutomatic
  92.         End With
  93.         With .Borders(wdBorderRight)
  94.             .LineStyle = wdLineStyleSingle
  95.             .LineWidth = wdLineWidth050pt
  96.             .Color = wdColorAutomatic
  97.         End With
  98.         With .Borders(wdBorderTop)
  99.             .LineStyle = wdLineStyleSingle
  100.             .LineWidth = wdLineWidth050pt
  101.             .Color = wdColorAutomatic
  102.         End With
  103.         With .Borders(wdBorderBottom)
  104.             .LineStyle = wdLineStyleSingle
  105.             .LineWidth = wdLineWidth050pt
  106.             .Color = wdColorAutomatic
  107.         End With
  108.         .Borders.Shadow = False
  109.     End With
  110.     With Options
  111.         .DefaultBorderLineStyle = wdLineStyleSingle
  112.         .DefaultBorderLineWidth = wdLineWidth050pt
  113.         .DefaultBorderColor = wdColorAutomatic
  114.     End With
  115.     
  116.         Selection.MoveRight Unit:=wdCharacter, Count:=1
  117.     Next j
  118.     
  119. 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
啄木币
24152
鲜花
841
只看该作者 2楼 发表于: 2008-06-16
做出来了  老大忒BT了
离线feixian9096
发帖
328
啄木币
309
鲜花
134
只看该作者 3楼 发表于: 2008-06-16
高、高手!  
离线爱生活
发帖
1351
啄木币
510
鲜花
115
只看该作者 4楼 发表于: 2008-06-16
欣宇不愧是技术主管

牛X啊
离线小鹏8号

发帖
10284
啄木币
941
鲜花
2694
只看该作者 5楼 发表于: 2008-06-16
这杨挺省钱的
以前都是一页纸打印四张~
离线jellyfirst
发帖
463
啄木币
421
鲜花
14
只看该作者 6楼 发表于: 2008-06-16
。。。。。。。。。。。。。。。
离线花相似
发帖
422
啄木币
577
鲜花
42
只看该作者 7楼 发表于: 2008-06-17
我们都是一页九个呢

发帖
7611
啄木币
1
鲜花
594
只看该作者 8楼 发表于: 2008-06-17
太强大了

发帖
3521
啄木币
2733
鲜花
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
谢啦!
离线天殇

发帖
7567
啄木币
23423
鲜花
453
只看该作者 13楼 发表于: 2008-07-30
大神,拜一下~~orz
离线单伟
发帖
684
啄木币
237
鲜花
76
只看该作者 14楼 发表于: 2008-07-30
牛A,呵呵
快速回复
限100 字节
 
上一个 下一个