哪位高手给我想想办法,用word模板后台打印时,总让我选择用只读、通知方式打开word文档,如何不让我选择直接后台打印?有没有什么语句可以用?
Dim WordTemps   As New Word.Application
......
WordTemps.PrintOut

解决方案 »

  1.   

    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
      

  2.   

    Dim WordTemps   As New Word.Application
    WordTemps.Documents.Open FileName:="C:\test.doc", ReadOnly:=True
    WordTemps.PrintOut
      

  3.   

    Dim wordApp As New Word.Application
    Set wordApp = CreateObject("Word.Application")
    wordApp.Documents.Open "C:\aa.doc", True
    wordApp.PrintOut
      

  4.   

    Dim wrdApp As Object
        Set wrdApp = CreateObject("Word.Application")
        wrdApp.Documents.Open FileName:=App.Path & "\Test.doc", ReadOnly:=True
        wrdApp.PrintOut