社区
使用本插件,可将页面以图片的方式导出到pdf,无论什么字体都能无错误导出,缺点是以图片形式后,无法选择或更改文字,介意者慎用;
插件使用了原程序导出的设置和方法,用原程序的导出即可,且支持后续二开(如批量导出等),建议导出分辨率为600dpi;
友情链接:https://www.pmhker.com/article/82.html
参考视频如下:
我也遇到同样的问题,目前通过调用虚拟打印机“Microsoft Print to PDF” 来实行,希望对你有所帮助。
Sub Main() ' 检查当前文档是否为工程图文档 If ThisApplication.ActiveDocument.DocumentType <> kDrawingDocumentObject Then MsgBox("This is not a drawing document.") Exit Sub End If Dim oDoc As DrawingDocument oDoc = ThisApplication.ActiveDocument Dim oPrintMgr As PrintManager oPrintMgr = oDoc.PrintManager ' 设置打印机为Microsoft Print to PDF oPrintMgr.Printer = "Microsoft Print to PDF" ' 设置打印范围为所有图纸 oPrintMgr.PrintRange = kPrintAllSheets ' 设置比例为最佳比例 oPrintMgr.ScaleMode = kPrintBestFitScale ' 不使用全黑打印 oPrintMgr.AllColorsAsBlack = False ' 构建PDF文件的完整路径 Dim strPDFFileName As String strPDFFileName = ThisDoc.PathAndFileName(False) & ".pdf" ' 提交打印任务 oPrintMgr.PrintToFile(strPDFFileName) End Sub
是的,我知道虚拟打印机可以解决这个问题,但是吧,不一定每个电脑都有虚拟打印机,不是每个电脑的虚拟打印机名称是所需要的名称,很难有通用性,当然,自己用,肯定是没有问题的