使用VB net通过自动化word打印pdf而不显示对话框

Question

我终于遇到了一个问题，我在这里或网络上的其他任何地方都没有找到答案：

我的程序从仪器中获取一些测量值（我无法直接控制它，所以我必须等到测量完成）由用户并解析报告），计算一些导出值并将这些值放回到由仪器控制软件自动生成的pdf报告中。

一切都有效，直到我到达开始打印输出的行。它总是打开文字打印对话框，而不是默默地覆盖我的文件。我实际上不明白调用 PrintOut 时我做错了什么。

这是示例代码：

Imports Microsoft.Office.Interop
Module Example
Private Sub PrintReport()
    Dim intAnswer As Integer
    Dim strReportFileName As String = ""
    Dim appWord As New Word.Application
    Dim wdDoc As Word.Document
    dim strPPF as string = "0.5" 'For testing, normally a parameter
    dim strFolder as string = "C:\UVVis-Data" 'For testing, normally a parameter

'Find and open the PDF file of the report:
    strReportFileName = (From fi As IO.FileInfo In (New IO.DirectoryInfo(strFolder.GetFiles("*.pdf")) Order By fi.LastWriteTime Descending Select fi)(0).FullName 'It will be always the newest file in that folder
    appWord.Visible = False 'hide word from the user
    wdDoc = appWord.Documents.Open(strReportFileName) 'open the PDF report
'Replace the placeholders which were defined in the report template earlier:
    With appWord.Selection.Find
        .Text = "#PPF#"
        .Replacement.ClearFormatting()
        .Replacement.Text = strPPF
        .Execute(Replace:=Microsoft.Office.Interop.Word.WdReplace.wdReplaceAll)
    End With

'Print out the modified report:
    'wdDoc.PrintOut(False, False,, strReportFileName,,,,,,, True) 'this was my first approach
    wdDoc.PrintOut(Background:=False, Append:=False, OutputFileName:=strReportFileName, PrintToFile:=True) 'this also doesn't work as intended

'Close the file and restore word to it's normal state:
    wdDoc.Close(Microsoft.Office.Interop.Word.WdSaveOptions.wdDoNotSaveChanges)
    appWord.Visible = True 
    appWord.Quit()
End Sub
end Module

Answer 1

感谢您的意见。
我发现我的代码存在第二个问题：在 Word 中打开原始文档后，我无法覆盖原始文档。

我解决了这个问题，首先将pdf移动到临时文件夹，在word中打开该临时文件并在word关闭后将其删除。

Answer 2

使用 Document.ExportAsFixedFormat 方法可以保存PDF 或 XPS 格式的文档。

Public Sub ExportAsFixedFormat_Example()  
 wdDoc.ExportAsFixedFormat pbFixedFormatTypePDF, "pathandfilename.pdf"  
End Sub