在 adobe 中打印字 pdf 转换

Question

Good afternoon friends,

I am testing a code to generate a pdf document from an adobe pdf printer.

the document is created in the folder, however it cannot be opened, indicating that it is damaged or not recognized.

I appreciate any input or comment.

Thank you,

note: I have the version of pdf adobe acrobat DC 2015 licensed and a pdf printer named "adobe pdf convert"

The conversion has to be done with this printer, I tried with other pdf printers but this one from Adobe is the only one that generates all the documents well for me when it is done from the print menu option.

the option to export and save pdf that can be used with word is not suitable for me.

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

I also tried with this code, but I have the same result... I don't know what the content of the file should be 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, "")