使用VB的Doc to tiff文件正在复制黑白内容

时间:2016-02-09 12:11:35

标签: vb.net vba tiff doc

我写了下面的代码:

Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Word
Module Module1

    Sub Main()
        Dim objWdDoc As Word.Document
        Dim objWord As Word.Application
        Dim sDesktop As String =
            Environment.GetEnvironmentVariable("userprofile") & "\Desktop\"

        objWord = CreateObject("Word.Application")
        'objWdDoc = objWord.Documents.Open(sDesktop & "testdocument.doc")
        objWdDoc = objWord.Documents.Open("C:\\test\\Test Doc to tiff\\test docs.doc")
        objWord.Visible = True

        'Select Printer
        objWord.ActivePrinter = ""
        'Print to Tiff
        'objWdDoc.PrintOut(Range:=WdPrintOutRange.wdPrintAllDocument,
        'OutputFileName:=sDesktop & "test.tiff",
        'Item:=WdPrintOutItem.wdPrintDocumentContent,
        'PrintToFile:=True)
        objWdDoc.PrintOut(Range:=WdPrintOutRange.wdPrintAllDocument,
                              OutputFileName:="C:\\test\\Test Doc to tiff\\" & "test.tiff",
                              Item:=WdPrintOutItem.wdPrintDocumentContent,
                              PrintToFile:=True)
        'Close Document
        objWdDoc.Close()
        'Close Word
        objWord.Quit()
        'General Cleanup
        objWdDoc = Nothing
        objWord = Nothing
    End Sub

End Module

此代码正在将Word文档转换为Tiff文件(多个页面)。但它正在复制内容,但是黑白分明。

我尝试了不同的选项来改变印刷品的属性,但没有运气。

0 个答案:

没有答案