繁体   English   中英

在 adobe 中打印字 pdf 转换

print word in adobe pdf convert

提示:本站收集StackOverFlow近2千万问答,支持中英文搜索,鼠标放在语句上弹窗显示对应的参考中文或英文, 本站还提供   中文繁体   英文版本   中英对照 版本,有任何建议请联系yoyou2525@163.com。

朋友们下午好,

我正在测试代码以从 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, "")
问题暂未有回复.您可以查看右边的相关问题.

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

相关问题
 
粤ICP备18138465号  © 2020-2022 STACKOOM.COM