不需要WordApp.printout打印全部，可以选择打印---vb6.0打印WORD中的指定页面如何实现，谢谢！
PrivateSubCmd3_Click()DimWordAppDimWordDimcurrent_filecurrent_file="f:\vb\anb.doc"Set...
Private Sub Cmd3_Click()
Dim WordApp
Dim Word
Dim current_file
current_file = "f:\vb\anb.doc"
Set WordApp = CreateObject("Word.Application")
Set Word = WordApp.Documents.Open(current_file)
WordApp.PrintOut Pages:="3" “？？？？？”
Word.Close
WordApp.quit
Set WordApp = Nothing
Set Word = Nothing
End Sub
经过试验，程序打印的还是全部，WordApp.PrintOut Pages:="3"这个语句没起打印第三页的作用！以上为何不对？求高手指正！财富全额奉上！ 展开
Dim WordApp
Dim Word
Dim current_file
current_file = "f:\vb\anb.doc"
Set WordApp = CreateObject("Word.Application")
Set Word = WordApp.Documents.Open(current_file)
WordApp.PrintOut Pages:="3" “？？？？？”
Word.Close
WordApp.quit
Set WordApp = Nothing
Set Word = Nothing
End Sub
经过试验，程序打印的还是全部，WordApp.PrintOut Pages:="3"这个语句没起打印第三页的作用！以上为何不对？求高手指正！财富全额奉上！ 展开
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
