如何进行循环打印??急,在线等!


While i <= 4
        goalF = App.Path + IIf(Right(App.Path, 1) = "\", "type.doc", "\type.doc")
        CopyFile sourceF, goalF, 0
        Set wordApp = New Word.Application
        Set wordDoc = wordApp.Documents.Open(filename:=goalF)
               wordDoc.PrintOut
        wordDoc.Close savechanges:=False
        wordApp.Quit savechanges:=False
        Set rng = Nothing
        Set wordDoc = Nothing
        Set wordApp = Nothing
        i = i + 1
 Wend
goalf目的文件,sourcef是源文件
上述程序怎么只能打印一个word文档.
或者告诉我怎么通过vb代码建立一个word文档??