word vba 打印文档首页 3份

Sub PrintFirstPageThreeTimes() '定义变量 Dim i As Integer '设置打印属性 With ActiveDocument.PageSetup .FirstPageTray = wdPrinterDefaultBin .OtherPagesTray = wdPrinterDefaultBin .VerticalAlignment = wdAlignVerticalTop .Orientation = wdOrientPortrait .TopMargin = CentimetersToPoints(2.54) .BottomMargin = CentimetersToPoints(2.54) .LeftMargin = CentimetersToPoints(2.54) .RightMargin = CentimetersToPoints(2.54) .Gutter = 0 .HeaderDistance = CentimetersToPoints(1.27) .FooterDistance = CentimetersToPoints(1.27) .PageWidth = CentimetersToPoints(21) .PageHeight = CentimetersToPoints(29.7) .DifferentFirstPageHeaderFooter = False .SuppressEndnotes = False .MirrorMargins = False .TwoPagesOnOne = False .BookFoldPrinting = False .BookFoldRevPrinting = False .Background = True .PrintDrawingObjects = True .PrintPageBackground = True .PrintHiddenText = False .PrintComments = wdPrintNoComments .PrintRevisions = wdPrintNoRevisions .PrintMarkup = wdPrintNoMarkup .PrintBackgrounds = True .PrintProperties = False .PrintFieldCodes = False .PrintTwoOnOne = False .GutterPos = wdGutterPosLeft End With '打印首页三份 For i = 1 To 3 ActiveDocument.PrintOut Range:=wdPrintFromTo, From:=1, To:=1 Next i End Sub