我写了下面的代码:
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文件(多个页面)。但它正在复制内容,但是黑白分明。
我尝试了不同的选项来改变印刷品的属性,但没有运气。