巧用宏命令,完美實現一頁A4紙打印多張高清照片或幻燈片

1、巧用宏命令，完美實現一頁 A4 紙打印多張高清照片或幻燈片莘縣一中 張仿剛工作中我們經常遇到這些情況：學籍庫中 2000 多張照片，如何有序的打印在 A4 紙上，每張 36 張且把 學籍號有序的自動填充到照片下方？家庭外出游玩的照片如何方便的按規(guī)定的尺寸打印在 A4 像紙上？一 個 ppt 文件有 96 張幻燈片，如何清晰的在 A4 紙中一頁打 8 張 ppt (甚至更多張)？本文就以實例解決上 述問題。首先我們需要在 word中安裝自動排版”宏命令，方法如下：wordf工具宀宏宀錄制新宏宀宏名macrol 改為自動排版”f確定f界面出現藍色對話框，停止錄制，然后wordf 工具f宏f選中宏自

2、動排版”f編輯，刪除尾行的end sub”，然后在尾行復制粘貼下列內容，關閉Visual Basic編輯器，這樣自動排版的宏命令就已經制作好了?！菊{整頁邊距及頁眉頁腳距，適用于A4 紙】With ActiveDocument.Styles(wdStyleNormal).FontIf .NameFarEast = .NameAscii Then .NameAscii = End If.NameFarEast = End With With ActiveDocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientP

3、ortrait .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 = Cent

4、imetersToPoints(21) .PageHeight = CentimetersToPoints(29.7) .FirstPageTray = wdPrinterDefaultBin .OtherPagesTray = wdPrinterDefaultBin .SectionStart = wdSectionNewPage .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .VerticalAlignment = wdAlignVerticalTop .SuppressEndnot

5、es= False .MirrorMargins = False .TwoPagesOnOne = False .BookFoldPrinting = False .BookFoldRevPrinting = False .BookFoldPrintingSheets = 1 .GutterPos = wdGutterPosLeft .LayoutMode = wdLayoutModeLineGridEnd With【加頁碼，頁腳居中處】Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _ wdAlig

6、nPageNumberCenter, FirstPage:=TrueIf ActiveWindow.View.SplitSpecial wdPaneNone ThenActiveWindow.Panes(2).CloseEnd IfIf ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintViewEnd If ActiveWindow.Acti

7、vePane.View.SeekView = wdSeekCurrentPageHeader If Selection.HeaderFooter.IsHeader = True ThenActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter ElseActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeaderEnd IfIf ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _

8、 ActivePane.View.Type = wdOutlineView ThenIf ActiveWindow.Panes.Count = 2 ThenActiveWindow.Panes(2).CloseEnd IfActiveWindow.View.SplitSpecial = wdPaneCurrentPageHeaderElseActiveWindow.View.SeekView = wdSeekCurrentPageHeader End If ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ActiveWind

9、ow.ActivePane.VerticalPercentScrolled = 0【調整每張幻燈片的大小為高 184 寬 262，也許還有更佳的值，可自己嘗試】Dim i As IntegerFor i = 1 To ActiveDocument.InlineShapes.CountActiveDocument.InlineShapes(i).Height = 184 ActiveDocument.InlineShapes(i).Width = 262Next i【給每張幻燈片加邊框】Selection.HomeKey Unit:=wdStoryDim j As IntegerFor j =

10、1 To ActiveDocument.InlineShapes.CountSelection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtendWith Selection.InlineShapes(1)With .Borders(wdBorderLeft) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomaticEnd WithWith .Borders(wdBorderRight).LineStyle = wdLi

11、neStyleSingle.LineWidth = wdLineWidth050pt.Color = wdColorAutomaticEnd WithWith .Borders(wdBorderTop).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth050pt.Color = wdColorAutomaticEnd WithWith .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth050pt.Color = wdColorAut

12、omaticEnd With.Borders.Shadow = FalseEnd WithWith Options.DefaultBorderLineStyle = wdLineStyleSingle .DefaultBorderLineWidth = wdLineWidth050pt .DefaultBorderColor = wdColorAutomaticEnd WithSelection.MoveRight Unit:=wdCharacter, Count:=1Next jEnd Sub2000 張的一樣一、在一頁 A4 紙上打印多張高清照片 以建立學籍為例，照片放在桌面新建文件夾內，

13、本例以 36 張照片為例， 可以一次全部導入，方法完全相同。第一步：修改宏文件。工具T宏T宏“自動排版”，改變照片寬度和高度，其他不變,文件呻 艇叩 視田皿 插人 褂式q 調試 運行如 工共吧 夕腹程序卽 國口血 藝助血If Sclecti cn. KedcrFoeter IsK-edcr = True TAcIl vAlfbudcv. A.cli vd-u1. Vlav. Sfi4id!.4R - a 4lurAitF：*Feia tai* El?eActLV4!rLiXic. A.cl3Vitinr. Sa4Ic7la - 出a首肚出urEnd IfIf Mtivdiiidg. hd 刪V

14、iw. 1畀由-廿心|*11対Or也屯沖社怖皿葉.AcUvefm.e Viv.T7pe = wd&a 11 inteVi.tr TheaIf AeLLvft LTidov. P uias. Cciunl - 2 IhAaActivVaudimr. FvneiCZ) dci-xtEM IfAc t tveVandw. Vi w Spli tSpc-ca -il = vdF-wtCurTCDitF-idtetder EkaAc t icVandw. Vi w StckVae- = wdSt eKmre口tTifdfeier EwS IfActkVflmdw. AcliTtFrie. Viw.= w

15、eeflaLnDorm1聞號格式mor芒機Up|環(huán)1式.L,色些 v|左S擠20(03725172頊目帚號和占號A竽韓妁 審怪落俎制表位泣迓： 叵T4屋米 c2C103725WJCI2010S725C-311 201097260012ill東命尾&蕩 與Heg.二.亂 n.町疊趨xx 1 X4EIF-C.pr!*+ *r v rt4f *睜呻if吳-古皤打螢的容初f 折1irit*JKfl 耳塞，N墓尊審;|.呻電膜IE量* r.sa e17- 0 弓 r- e-w. f *：TW E-!-*-siJr i土磕r rm舉 內#匕H 暫!*；隹韭#壬比:ELM!空耐亀S-W4E44- AT?KU-二、在一頁A4紙上打印8張ppt幻燈片常常需要將PPT的內容以講義形式打印出來，但 PPT打 印設置里只支持一頁紙上打印123,4,6,9頁幻燈片幾種形式, 而且格式幾乎無法調整而且格式幾乎無法調整。筆者嘗試打 開ppt文件后，執(zhí)行：文件打印對話框“打印內容” 選擇“講義”-“每頁幻燈片數”選擇9-預覽結果很不理想， 幻燈片之間的間距過大，從而使得幻燈片內容太小且不清晰。 本法仍然采取宏命令進行操作。第一步：Powerpoint :文件另存為windows圖元文件，如果PP