巧用宏命令,完美实现一页A4纸打印多张高清照片或幻灯片

巧用宏命令，完美实现一页A4纸打印多张高清照片或幻灯片
莘县一中张仿刚
工作中我们经常遇到这些情况：学籍库中2000多张照片，如何有序的打印在A4纸上，每张36张且把学籍号有序的自动填充到照片下方？家庭外出游玩的照片如何方便的按规定的尺寸打印在A4像纸上？一个ppt文件有96张幻灯片，如何清晰的在A4纸中一页打8张ppt（甚至更多张）？本文就以实例解决上述问题。

首先我们需要在word中安装“自动排版”宏命令，方法如下：word→工具→宏→录制新宏→宏名macrol 改为“自动排版”→确定→界面出现蓝色对话框，停止录制，然后word→工具→宏→选中宏“自动排版”→编辑，删除尾行的“end sub”，然后在尾行复制粘贴下列内容，关闭Visual Basic编辑器，这样自动排版的宏命令就已经制作好了。

'【调整页边距及页眉页脚距，适用于A4纸】
With ActiveDocument.Styles(wdStyleNormal).Font
FarEast=.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=2Then
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=1To 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=1To 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
一、在一页A4纸上打印多张高清照片
以建立学籍为例，照片放在桌面新建文件夹内，本例以36张照片为例，2000张的一样可以一次全部导入，方法完全相同。

第一步：修改宏文件。

工具→宏→宏“自动排版”，改变照片宽度和高度，其他不变，
第二步：Word。

插入→图片→来自文件，可用快捷键“Ctrl+A”全选学籍库所有图片，插入。

第三步：word。

工具—→宏—→宏，选择宏“自动排版”，运行。

效果如下：
第四步：word。

文件→页面设置→上下左右边距可调为2cm。

全选文档（ctrl+A），点居中图标。

第五步：word。

添加加文件名（学籍号）。

首先在第一行照片后面击两次回车键，空出一行，插入表格（1行×6列），调整表格端线，使得空格对应每张照片下面。

如下图：
然后选中表格左上角的十字全选表格，击右键，表格属性→边框和底纹→边框→设置为“无”→确定。

再次全选表格，格式→项目和符号→编号→选中左起第2各编号→自定义→编号格式在灰色闪动的“1”前添加“20103725000”，再把灰色“1”后面的黑点删掉。

第六步：word。

自动填充学籍号。

全选中刚才自动填充好表格，复制→在每行照片后面粘贴。

由于word只支持1—9999四位数字，当遇到更位时，即学籍尾号为“10”、“100”、“1000”时要重新设定。

如出现“00010”需改为“0010”，则选中该生下方的编号→格式或右键→项目符号和编号→自定义编号→编号格式减去一个0→起始编号改为10→确定，同理出现100、1000时也要改两次。

另外出现断码时按同样的方法操作。

二、在一页A4纸上打印8张ppt幻灯片
常常需要将PPT的内容以讲义形式打印出来，但PPT打
印设置里只支持一页纸上打印1,2,3,4,6,9页幻灯片几种形式,
而且格式几乎无法调整而且格式几乎无法调整。

笔者尝试打
开ppt文件后，执行：文件→打印→对话框“打印内容”→
选择“讲义”→“每页幻灯片数”选择9→预览结果很不理想，
幻灯片之间的间距过大，从而使得幻灯片内容太小且不清晰。

本法仍然采取宏命令进行操作。

第一步：Powerpoint：文件→另存为→windows图元文件，如果
PPT有背景，可先将背景模板改为白版形式，为方便阅读，可先
在ppt中添加幻灯片编号后再另存为图片元件。

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

第三步：Word：工具→宏→宏“自动排版”，运行，如右图。

第五步：可以调整页边距，如果想一页上有更多幻灯片可以适当
编辑宏命令中的图片大小（工具→宏→宏→编辑→修改图片参数→关
闭Visual Basic编辑器），重新运行宏即可观察效果，可尝试反复调整。

总之，只要你善于运用该宏命令，即可做到对照片的自由打印。