vb中WORD怎么打印

Question

我想写打印WORD的程序但objword.Open FileName:="c:\1.doc"不知道该怎么写请高人帮忙看下谢谢 
Private Sub Command2_Click() 
Dim i 
Dim objword As Object 
Const CLASSOBJECT = "Word.Application" 
Set objword = CreateObject(CLASSOBJECT) 
objword.Open FileName:="c:\1.doc" 
objword.PrintOut 
For Each i In objword 
i.PrintOut 
Next i 
objword.Quit 
End Sub

Answer 1

Private Sub Command2_Click() 
    Dim WordAppX As New Word.Application
    Dim WordDocX As Word.Document
    Dim WordTableX As Word.Table
    'WordAppX.Application.Visible = True
    
    '建立Word应用程序
    Set WordAppX = New Word.Application
    '建立Word文档
    Set WordDocX = WordAppX.Documents.Add("c:\1.doc")
WordDocX.PrintOut Range:=wdPrintFromTo, From:="1", To:="end"    WordDocX.Close (wdSaveChanges)
    WordAppX.Quit (wdSaveChanges)
    Set WordTableX = Nothing
    Set WordDocX = Nothing
    Set WordAppX = Nothin
end subEnd Sub

Answer 2

首先要添加WORD的引用
Private Sub Command2_Click() 
    Dim WordAppX As New Word.Application 
    Dim WordDocX As Word.Document 
    'WordAppX.Application.Visible = True 
    
    '建立Word应用程序 
    Set WordAppX = New Word.Application 
    '建立Word文档 
    Set WordDocX = WordAppX.Documents.Add("c:\1.doc") 
WordDocX.PrintOut Range:=wdPrintFromTo, From:="1", To:="end"     WordDocX.Close (wdSaveChanges) 
    WordAppX.Quit (wdSaveChanges) 
    Set WordDocX = Nothing 
    Set WordAppX = Nothin 
end sub End Sub