主题：word打印成pdf

1、如果是另存为pdf，如代码

Dim app As New MSWord.Application
try
    Dim fileName = "g:\test.docx"
    Dim doc = app.Documents.Open(fileName)
    app.Documents(fileName).ExportAsFixedFormat("g:\test.pdf", MSWord.WdExportFormat.wdExportFormatPDF)
    app.Quit
catch ex As exception
    msgbox(ex.message)
    app.Quit
End try

2、如果是【虚拟pdf打印机】，你应该自己安装一个打印机，然后打开word后打印。

测试了一下，可以的， 如

Dim app As New MSWord.Application
try
    Dim fileName = "d:\test.doc"
    Dim doc = app.Documents.Open(fileName)
    app.Documents(fileName).ExportAsFixedFormat(OutputFileName:="d:\testpdf", ExportFormat:= MSWord.WdExportFormat.wdExportFormatPDF, OpenAfterExport:=False,Range:=MsWord.WdExportRange.wdExportFromTo, From:=2, To:=4, Item:= _
        msword.WdExportItem.wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=MsWord.WdExportCreateBookmarks.wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False)
    app.Quit
catch ex As exception
    msgbox(ex.message)
    app.Quit
End try