这个vb代码不能实现指定页打印,不论怎样设置 Copies:和Pages都和没有一样,为什么呢?

Private Sub Command1_Click()

Dim WordApp

Dim Word Set WordApp = CreateObject("Word.Application")

 'WordApp.Visible = True

Set Word = WordApp.Documents.Open("d:\abc.doc")

WordApp.Application.PrintOut Copies:=1, Pages:="1,5"

Word.Close

WordApp.Quit

Set WordApp = Nothing

Set Word = Nothing

End Sub

这个vb代码不能实现指定页打印,不论怎样设置 Copies:和Pages都和没有一样,请问程序错在哪里啦?

posted on 2011-11-05 21:32  我爱小脚丫  阅读(230)  评论(0编辑  收藏  举报