VBA使用非标准字体将Excel转换为PDF

Question

我正在尝试使用 ExportAsFixedFormat 将 Excel 工作表导出为 PDF，我拥有的代码正在创建 PDF，但它用转换后的 pdf 中的标准字体替换了我的 Excel 文件中的 Myriad Pro。

导出代码如下：

awb.Sheets("PIN").ExportAsFixedFormat Type:=xlTypePDF, _
                 fileName:=strFileName, _
                 Quality:=xlQualityStandard, _
                 IncludeDocProperties:=True, _
                 IgnorePrintAreas:=False, _
                 OpenAfterPublish:=False

有什么方法可以强制 Adob​​e 使用我设置的字体而不是恢复为标准字体？当我手动将单个工作表转换为 PDF 时，它工作正常。

Answer 1

如果 Acrobat Distiller 安装在每台将使用您的文件的机器上，您就可以使用它...如果是这种情况，您可以这样做：

首先，在 Distiller 的打印机设置中，您需要禁用 Rely on system fonts only; do not use document fonts 选项，否则您会收到错误消息。

其次，在 VB 编辑器的 Tools 菜单中，转到 References 选项。您需要找到并检查Acrobat Distiller 参考。

代码：

Sub ExportPDF()
    Dim acro As New ACRODISTXLib.PdfDistiller6
    Dim wk As Worksheet
    
    Const opFile As String = "C:\test\test.ps"
    Const PDFFile As String = "C:\test\test.pdf"
    Const PrinterName As String = "Adobe PDF"
    
    Set wk = Sheet1
    
    wk.PrintOut ActivePrinter:=PrinterName, PrintToFile:=True, PrToFileName:=opFile
    
    acro.FileToPDF opFile, PDFFile, ""
    
End Sub

这应该是一个很好的起点。

注意：对于不同版本的 Distiller，Distiller 的对象名称和打印机名称可能不同。