巧用宏命令,完美實(shí)現(xiàn)一頁(yè)A4紙打印多張高清照片或幻燈片

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

2、動(dòng)排版”f編輯，刪除尾行的end sub”，然后在尾行復(fù)制粘貼下列內(nèi)容，關(guān)閉Visual Basic編輯器，這樣自動(dòng)排版的宏命令就已經(jīng)制作好了?！菊{(diào)整頁(yè)邊距及頁(yè)眉頁(yè)腳距，適用于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【加頁(yè)碼，頁(yè)腳居中處】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【調(diào)整每張幻燈片的大小為高 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 張的一樣一、在一頁(yè) A4 紙上打印多張高清照片 以建立學(xué)籍為例，照片放在桌面新建文件夾內(nèi)，

13、本例以 36 張照片為例， 可以一次全部導(dǎo)入，方法完全相同。第一步：修改宏文件。工具T宏T宏“自動(dòng)排版”，改變照片寬度和高度，其他不變,文件呻 艇叩 視田皿 插人 褂式q 調(diào)試 運(yùn)行如 工共吧 夕腹程序卽 國(guó)口血 藝助血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聞號(hào)格式mor芒機(jī)Up|環(huán)1式.L,色些 v|左S擠20(03725172頊目帚號(hào)和占號(hào)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舉 內(nèi)#匕H 暫!*；隹韭#壬比:ELM!空耐亀S-W4E44- AT?KU-二、在一頁(yè)A4紙上打印8張ppt幻燈片常常需要將PPT的內(nèi)容以講義形式打印出來(lái)，但 PPT打 印設(shè)置里只支持一頁(yè)紙上打印123,4,6,9頁(yè)幻燈片幾種形式, 而且格式幾乎無(wú)法調(diào)整而且格式幾乎無(wú)法調(diào)整。筆者嘗試打 開(kāi)ppt文件后，執(zhí)行：文件打印對(duì)話框“打印內(nèi)容” 選擇“講義”-“每頁(yè)幻燈片數(shù)”選擇9-預(yù)覽結(jié)果很不理想， 幻燈片之間的間距過(guò)大，從而使得幻燈片內(nèi)容太小且不清晰。 本法仍然采取宏命令進(jìn)行操作。第一步：Powerpoint :文件另存為windows圖元文件，如果PP