Private Sub Command1_Click() Dim wapp As New Word.Application Dim file As Stringfile = "f:\abc.doc" wapp.Documents.Open FileName:=file, ReadOnly:=Truewapp.Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _ ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _ False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0wapp.Quit End Sub
Dim WordTemps As New Word.Application WordTemps.Documents.Open FileName:="C:\test.doc", ReadOnly:=True WordTemps.PrintOut
Dim wordApp As New Word.Application Set wordApp = CreateObject("Word.Application") wordApp.Documents.Open "C:\aa.doc", True wordApp.PrintOut
Dim wrdApp As Object Set wrdApp = CreateObject("Word.Application") wrdApp.Documents.Open FileName:=App.Path & "\Test.doc", ReadOnly:=True wrdApp.PrintOut
Dim wapp As New Word.Application
Dim file As Stringfile = "f:\abc.doc"
wapp.Documents.Open FileName:=file, ReadOnly:=Truewapp.Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0wapp.Quit
End Sub
WordTemps.Documents.Open FileName:="C:\test.doc", ReadOnly:=True
WordTemps.PrintOut
Set wordApp = CreateObject("Word.Application")
wordApp.Documents.Open "C:\aa.doc", True
wordApp.PrintOut
Set wrdApp = CreateObject("Word.Application")
wrdApp.Documents.Open FileName:=App.Path & "\Test.doc", ReadOnly:=True
wrdApp.PrintOut