在 adobe 中打印字 pdf 轉換

Question

朋友們下午好，

我正在測試代碼以從 adobe pdf 打印機生成 pdf 文檔。

文檔在文件夾中創建，但無法打開，說明已損壞或無法識別。

我感謝任何輸入或評論。

謝謝，

注意：我有 pdf adobe acrobat DC 2015 許可版本和 pdf 打印機名為“adobe pdf convert”

轉換必須使用這台打印機完成，我嘗試使用其他 pdf 打印機，但 Adobe 的這台打印機是唯一一台在從打印菜單選項完成時為我生成所有文檔的打印機。

可以與word一起使用的導出和保存pdf的選項不適合我。

Dim app As word.Application = New Microsoft.Office.Interop.Word.Application()
Dim doc As Microsoft.Office.Interop.Word.Document = New Microsoft.Office.Interop.Word.Document()
Try
Dim filename1 As String = "1.doc"
Dim startupPath As String = "c:\temp1"
Dim docPath = Path.Combine(startupPath, filename1)

app.Visible = False
doc = app.Documents.Open(docPath)
app.ActivePrinter = "Adobe PDF Converter" 
Dim fullPath As String = System.IO.Path.GetFullPath(filename1)
app.PrintOut(OutputFileName:="c:\temp1\1s3.pdf", PrintToFile:=True)

doc.Close(True, Type.Missing, Type.Missing)
Marshal.ReleaseComObject(doc)
doc = Nothing
app.Quit(True, Type.Missing, Type.Missing)
Marshal.ReleaseComObject(app)
app = Nothing

Catch ex As System.Exception

Throw ex

Finally
If (Not doc Is Nothing) Then
System.Runtime.InteropServices.Marshal.ReleaseComObject(doc)
doc = Nothing
End If
If (Not app Is Nothing) Then
app.Quit()
System.Runtime.InteropServices.Marshal.ReleaseComObject(app)
app = Nothing
End If
End Try

我也嘗試使用此代碼，但結果相同...我不知道文件的內容應該是什么 myPostScript.ps

Dim PSFileName As String
Dim PDFFileName As String
PSFileName = "c:\myPostScript.ps"
PDFFileName = "c:\temp1\1s3.pdf"

Dim myPDF As PdfDistiller
myPDF = New PdfDistiller
myPDF.FileToPDF(PSFileName, PDFFileName, "")