主题：word打印成pdf

怎么在系统中把word打印成pdf？

http://www.foxtable.com/webhelp/scr/2931.htm

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后打印。

我不是报表，而是随便一个word文件，也可以这样操作？

参考3楼代码。

哦哦，谢谢，1里面可否指定页数，打印第几页到第几页？？

 

那么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

非常感谢