通过 VBA 将 MS Excel 2003 工作簿导出为 PDF答案

【问题标题】：Exporting an MS Excel 2003 workbook to PDF via VBA通过 VBA 将 MS Excel 2003 工作簿导出为 PDF
【发布时间】：2010-09-18 11:12:23
【问题描述】：

我有一个 Excel 2003 工作簿，其中包含一个宏，用于将其某些工作表复制到新工作簿，然后保存并关闭新工作簿。它这样做了几十次，每次选择的工作表略有不同。

我想在宏中添加一个额外的步骤，以将辅助工作簿的电子表格导出为 PDF。显而易见的方法是使用 PDF 打印机和 Excel 的内置打印功能，但大多数 PDF 打印机在完成之前都会给您一个“另存为...”对话框。显然，在 70 多个场合单独输入它缺乏吸引力 - 所以我想要一些允许我提前设置它的东西（可能是“使用我正在打印的文件的文件名减去它的扩展名”）然后只需选择默认选项。

有什么免费的 PDF 打印机可以做到这一点的想法吗？还是合适的替代品？

【问题讨论】：

标签： pdf excel pdf-generation excel-2003 vba

【解决方案1】：

Office 2007 允许这样做。我发现PDFCreator 不错，VBA 包含在示例文件中，听说CutePDF 也不错。 PDFCreator 和 CutePDF 是免费的。

【讨论】：

【解决方案2】：

作为对Remou 的（明智）答案的改进，因为这也帮助我解决了我的问题。

我选择pdfcreator（因为我已经安装了它），这就是我最终使用的：

Sub PDF_Print() 
    Dim p 
    p = ActivePrinter 
    ActivePrinter = "PDFCreator" 
    ActiveDocument.PrintOut 
    ActivePrinter = p 
End Sub

像魅力一样工作

【讨论】：

【解决方案3】：

这可能会有所帮助：http://www.pdf995.com

一个特点是“三个自动命名选项来绕过另存为对话框”

【讨论】：